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

var

I, x: extended;

j: integer;

begin

j:=0; I:=0; x:=a;

while (x<b-0.000001) do

begin

I:=I+difChebushev(x,x+h);

x:=x+h;

j:=j+1;

end;

Chebushev:=I

end;

{------------------------------------------------}

BEGIN

lbl1:

clrscr;

c:=2.1; d:=6;

a:=0; b:=1;

textmode (3);

textcolor(15);

writeln ('Програма обчислюэ iнтеграл функцii cx/2-sec(dx) в межах вiд a до b двома');

writeln ('методами: Сiмпсона та Чебишева IV порядку');

writeln ('Поточнi значення параметрiв:');

writeln ('a=', a:2:6);

writeln ('b=', b:2:6);

writeln ('c=', c:2:6);

writeln ('d=', d:2:6);

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