Delphi常用数值算法源代码 procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real); var I,J:integer; SUM:real; begin For I:=1 To N do begin Sum:=B[I]; For J:=1 To I - 1 do Sum:=Sum - A[I, J] * B[J]; B[I]: =Sum; end; For I:=N DownTo 1 do begi
#include "stdio.h" #include "conio.h" #include "string.h" #define MAX 5000 int start,end,nodenum; void save1(); void save2(); void main() { FILE *fp1,*fp2,*fp3; float ver[50]; int t[14],i,j,m; int num_node[4]; int node_number; int n umber=0; float v
vb.net写的计算器 Public Class Form1 Inherits System.Windows.Forms.Form Private dblNumA As Double = 0 Private dblNumB As Double = 0 Shared oper As String = "" Shared point As Boolean = False Shared dotnum As Integer = 0 Private db lNnm As Double = 0 Priva
