implementation
//PROGRAM D8R1
//Driver for routine EULSUM
uses
unit2;
{$R *.DFM}
var
F:TextFile;
procedure TForm1.Button1Click(Sender: TObject);
begin
//输出计算结果到文件
AssignFile(F, 'd
procedure MPROVE(A,ALUD:matrx2; N:integer;
INDX:array of real; B:array of real;var X:array of real);
var
R:array [0..100] of real;
I,J:integer;
SDP:real;
begin
For I
procedure TRIDAG(A, B, C, R:array of real;var U:array of real; N:integer);
var
GAM:array[0..100] of real;
J:integer; BET:real;
begin
If B[1] = 0 Then Exit;
BET:=B[1];
U[1]:
procedure QRDCMP(var A:matrx2; M, N:integer;var Q:matrx2);
var
I,J,K:integer; S,T,Sgn,H,F:real;
begin
For I:=1 To M do
begin
For J:=1 To M do
Q[I, J]:=0;
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
unit Unit2;
interface
Procedure SORT(N:integer; var RA:array of real);
implementation
Procedure SORT(N:integer; var RA:array of real);
Label 99;
var
I,J,L,IR:integer;
RR,RRA:real;
