49571 (Дослідження чисельних методів інтегрування), страница 2
Описание файла
Документ из архива "Дослідження чисельних методів інтегрування", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "49571"
Текст 2 страницы из документа "49571"
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.