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

Program kursach2;

uses crt;

var

a,b,c,d,e,y1,y2,h,x:real;

n:longint;

begin

clrscr; textcolor(11);

writeln(' ╔═══════════════════════════════════════════════════════════════╗');

writeln(' ║ Этапрограммавычисляетопределённыйинтегралотфункции║');

writeln(' ║ ║');

writeln(' ║ x ║');

writeln(' ║ f(x)= ------------- ║');

writeln(' ║ (x^4+d*x^2+c) ║');

writeln(' ║ ║');

writeln(' ║ наотрезке [a,b] спогрешностью e. ║');

writeln(' ╚═══════════════════════════════════════════════════════════════╝');

writeln;

write(' Введителевуюграницуинтервала: '); readln(a);

write(' Введите правую границу интервала: '); readln(b);

write(' Введите погрешность вычислений: '); readln(e);

clrscr;

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

write(' Введите значения c: '); read(c);

write(' Введите значения d: '); read(d);

n:=2000; y2:=0;

repeat

h:=(b-a)/n; y1:=y2;

y2:=0; x:=a+h;

repeat