Дослідження чисельних методів інтегрування
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
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 (.........);
res[1,1]:=Simpson(a, b, h1);
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);
writeln (I=, res[2][1]:5:14);
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);
gotoxy (57, wherey);
writeln (I=, delta[1][1]:5:14);
write (Чебишева:);
gotoxy (13, wherey);
write (I=, delta[2][3]:5:14);
gotoxy (35, wherey);
write (I=, delta[2][2]:5:14);
gotoxy (57, wherey);
writeln (I=, delta[2][1]:5:14);
writeln;
writeln (Для перезавантаження програми натиснiть клавiшу R);
writeln (Для виходу натиснiть будь-яку клавiшу);
ch:=readkey;
if ch=r then goto lbl1;
END.