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

if ((ch='y') or (ch='Y')) then

begin

write ('a=');

readln (a);

write ('b=');

readln (b);

end;

writeln ('Ви хочете змiнити параметри c та d? (y - так, iнша клавiша - нi)');

ch:=readkey;

if ((ch='y') or (ch='Y')) then

begin

write ('c=');

readln (c);

write ('d=');

readln (d);

end;

clrscr;

writeln ('Пiдiнтегральна функцiя: ', c:2:6, 'x/2-sec(', d:2:6, 'x)');

writeln ('Межi iнтегрування - вiд ', a:2:6, ' do ', b:2:6);

writeln ('Iнтеграл обчислюэться методами Сiмпсона та Чебишева IV порядку з 3 кроками: ');

writeln (h1:2:6, ', ', h2:2:6, ' та ', h5:2:6);

writeln;

write ('Виконуються обчислення.');

res[2,1]:=Chebushev(a, b, h1);

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

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

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

res[2,3]:=Chebushev(a, b, h5);

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