Курсовая работа: Аппроксимация функции методом наименьших квадратов

Begin

writeln('__________________');

writeln('Введите значения Х');

VVOD(X) ;

writeln('__________________');

writeln('‚Введите значения Y');

VVOD(Y);

writeln('___________________');

For i:=1 to 3 do

For j:=1 to 3 do

begin

A[i,j]:=0;

For k:=1 to 5 do

begin A[i,j]:= A[i,j]+FI(i,k)*FI(j,k); write(a[i,j]:7:5); end;

end;

writeln('________________________');

writeln('МатрицаКоэффициентовAi,j');

writeln('__________________________');

For i:=1 to 3 do

begin

For j:=1 to 3 do

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

writeln;

end;

For i:=1 to 3 do

begin

B[i]:=0;

For j:=1 to 5 do

B[i]:=B[i]+Y[j]*FI(i,j);