Зворотний зв'язок

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

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;


Реферати!

У нас ви зможете знайти і ознайомитися з рефератами на будь-яку тему.







Не знайшли потрібний реферат ?

Замовте написання реферату на потрібну Вам тему

Замовити реферат