Побудова таблиці значень функції
end
end.
Підпрограма: Знаходження визначника матриці методом Гауса
<
Function Det (A: dvmr; N: integer): real;
Var i,j,k: integer;
d,y,w: real;
Begin
if (help_s=’h’) or (help_s=’H’) then begin ClrScr;
writeln (‘***********************************************’);
writeln (‘* Знаходження визначника матриці методом Гауса *’);
writeln (‘*<
writeln (‘*Вхідні дані: *’);
writeln (‘*N- кількість рядків матриці *’);
writeln (‘*A[i,j] - матриця коефіцієнтів. *);
writeln (‘***********************************************’);
readln; Exit;
end;
d:=1;
for i:=1 to N do begin
k:=1; y:=A[i,i];
for j:=i+1 to N begin
w:=A[j,i];
if Abs (w)>Abs(y) then begin
k:j; y:=w;