49567 (Дослідження методів чисельного інтегрування), страница 3
Описание файла
Документ из архива "Дослідження методів чисельного інтегрування", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "49567"
Текст 3 страницы из документа "49567"
n:=i+10;
end;
delta:=((b-a)/(n*fact(3)))*sum1;
delta:=Abs(delta);
AllDelta:=abs(delta);
str(Delta:12:10,s1);
Resm[i]:=Delta;
setcolor(red);
str(Sum:12:18,s);
str(AllDelta:12:20,s1);
str(h:2:3,hs);
setcolor(blue);
Outtextxy(100,240,'Интеграл: '+s);
Outtextxy(45,260,'Точне значення (Mathcad): 2.68069545714219');
Outtextxy(100,280,'Похибка: '+s1);
Outtextxy(100,300,'Крок: '+hs);
readln;
end;
4: begin
sound(500);
setbkcolor(lightred);
h:=0.01;
Outtextxy(150,200,'Крок h=0.01 ');
Outtextxy(170,250,'Натиснить будь-яку клавишу ...');
delay(10000);
nosound;
repeat until keypressed;
end;
5: begin
setbkcolor(lightred);
h:=0.02;
Outtextxy(150,200,'Крок h=0.02 ');
Outtextxy(170,250,'Натиснить будь-яку клавишу ...');
repeat until keypressed;
end;
6: begin
setbkcolor(lightred);
h:=0.05;
Outtextxy(150,200,'Крок h=0.05 ');
Outtextxy(170,250,'Натиснить будь-яку клавишу ...');
repeat until keypressed;
end;
7: begin
setbkcolor(lightred);
Outtextxy(160,200,'Програму виконав ст.гр. 3АВ-02');
Outtextxy(210,220,'Нетяга О.В.');
repeat until keypressed;
end;
8: exit;
end;
until (i=7) or (i=-1);
CloseGraph;
end.
Додаток Б
