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

write ('.........');

res[1,2]:=Simpson(a, b, h2);

write ('.........');

res[1,3]:=Simpson(a, b, h5);

writeln ('.........');

gotoxy (wherex, wherey-1);

writeln ('Нижче виведено результати обчислень двома методами з 3 кроками ');

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=', res[1][3]:5:14);

gotoxy (35, wherey);

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

gotoxy (57, wherey);

writeln ('I=', res[1][1]:5:14);

write ('Чебишева:');

gotoxy (13, wherey);

write ('I=', res[2][3]:5:14);

gotoxy (35, wherey);

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

gotoxy (57, wherey);