Побудова таблиці значень функції

writeln (1st,'* ', x[i];8:3 , ' * ',y:8:3,'writeln (1st, '-----------------------------------------------------------------------

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