49567 (609165), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

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.

Додаток Б

Характеристики

Список файлов курсовой работы