Курсовая работа: Программирование системы уравнений

for j:=1 to N do

write(A[i,j]:5:2);

writeln(B[i]:5:2);

end;

for i:=1 to N do

begin

for j:=1 to N do

matr[i,j]:=A[i,j];

matr[i,N+1]:=B[i];

end;

Gausse(matr,N);

writeln('reshenie sistemi yravnenii:');

for i:=1 to N do

writeln('X',i,'=',matr[i,N+1]:5:2);

readkey;

end.

9 Разработка программы решения уравнения методом Ньютона при помощи Turbo Pascal

uses crt;

var

a,b,Exp,s : real;

i : integer;

function Func(x : real) : real;

begin

Func:=2*x*x*x-3*x*x-12*x+10;

end;

function PFunc(x : real) : real;

begin

PFunc:=6*x*x-6*x-12;

end;