Система управления аппаратом производства фотографической эмульсии

Информация - Компьютеры, программирование

j:=n downto i do

a[i,j]:=a[i,j]/a[i,i];

for k:=i+1 to n do begin

b[k]:=b[k]-b[i]*a[k,i];

for j:=n downto i do

a[k,j]:=a[k,j]-(a[i,j]*a[k,i]);

end;

i:=i+1;

until i=n+1;

v[n]:=b[n];

for i:=n-1 downto 1 do begin

v[i]:=b[i];

for j:=i+1 to n do

v[i]:=v[i]-(v[j]*a[i,j]);

end;

for i:=1 to n do p[i-1]:=v[i];

writeln;

writeln(эквивалентная ступенчатая матрица системы:);

writing(a,b);

writeln( РЕШЕНИЕ : );

for d:=0 to n-1 do writeln(p[d]:12:10);

writeln(значения аппроксимирующего полинома в узловых точках равны: );

for d:=1 to l do begin

f[d]:=abs((g(p,x[d])-y[d])/{y[d]}6);

write( ,g(p,x[d]):4:2, );

end;

writeln;

writeln(приведенная ошибка аппроксимации в % равна:);

writeln(max(f)*100:4:0,%);

{=====запись в файл=====}

assign(fil,result.txt);

rewrite(fil);

for d:=0 to n-1 do

writeln (fil,p[d]);

End.