Алгоритм!!!!

← →
MBo (2002-03-31 15:37) [2]

сильно не проверял

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
d:double;
ar:array[1..3,1..3] of double;

function Determinant(N:integer):double;
var
I, J, K : Integer;
Temp: double;
begin
for I:= 1 to N do begin
if Abs(ar[i,i])<10E-10 then begin
Result:= 0.0;
Exit;
end;
end;
for I:= 1 to N-1 do begin
for J:= I+1 to N do begin
Temp:= ar[J,I] / ar[I,I];
for K:= I to N do
ar[J,K]:= ar[J,K]-temp*ar[I,K];
end;
end;
temp:= 1.0;
for I:= 1 to N do
Temp:= Temp * ar[I,I];
Result:=Temp;
End;

begin
for i:=1 to 3 do
for j:=1 to 3 do
if i=j then ar[i,j]:=i else ar[i,j]:=0;
d:=Determinant(3);
label1.caption:=floattostr(d);
end;

Алгоритм!!!! Найти похожие ветки