Курсовая работа: Дослідження чисельних методів інтегрування

write ('Обчислення похибки.....');

if (a=0) and (b=1) and (c=2.1) and (d=6) then

sharp:=-2.07230756449615

else

sharp:=1.1*Chebushev(a, b, 0.0001);

for i:=1 to 2 do

for j:=1 to 3 do

begin

delta[i][j]:=abs(sharp-res[i][j]);

write('....');

end;

writeln;

gotoxy (wherex, wherey-1);

writeln(' ');

writeln ('Нижче виведено похибки обчислень');

writeln;

write ('Крок:');

gotoxy (13, wherey);

write ('h=', h5:2:6);

gotoxy (35, wherey);

write ('h=', h2:2:6);

gotoxy (57, wherey);

writeln ('h=', h1:2:6);

writeln ('Метод');

write ('Сiмпсона:');

gotoxy (13, wherey);

write ('I=', delta[1][3]:5:14);

gotoxy (35, wherey);

write ('I=', delta[1][2]:5:14);