Курсовая работа: Turbo Pascal

{y2:=y2+h*sin(x);}

x:=x+h;

until x>b;

n:=2*n;

if n>255000 then

begin

ClrScr; textcolor(red); writeln;

writeln(' **** Сработала защита от зацикливания ****');

readkey; exit;

end;

until abs(y1-y2)<e;

ClrScr;

writeln;

writeln('*******************************************************************');

writeln('При с=',c:3:2,'и d=',d:3:2,'значение определённого интеграла',y2:5:3);

writeln(' с точностью до ',e:6:5 );

writeln;

writeln(' Количество разбиений отрезка [',a:3:2,';',b:3:2,']: ',n div 2 );

writeln('*******************************************************************');

readkey;

end.

Список литературы

1. Методические указания по выполнению курсовой работы «Алгоритмические языки и программирование»

№1525, Рязань: РРТИ, 1988.

2. Методические указания «Модульное программирование на Турбо Паскале» №3037,В.С.Новичков, Н. И. Парфилова, А. Н. Пылькин, Рязань: РГРТА, 2000.

3. «Программирование на языке ПАСКАЛЬ», Г. Л. Семашко, А. И. Салтыков, Москва «Наука», 1988.

4. «Программирование на языке ПАСКАЛЬ», О. Н. Перминов, «Радио и связь», 1988.