Курсовая работа: Численное интегрирование методом Гаусса

j: =trunc(480*(y-y2) /(y1-y2));

outtextxy(5,j+3,'y=0');

{Ждем... }

readkey;

end;

procedure equateit(a,b: real; eps: real); {процедура подсчета значения интеграла и вывода графика на экран}

var integral: real; i,j: integer;

begin

Integral: =gauss(a,b,eps,gauss_calc(a,b));

writeln('Интеграл = ', integral: 0: 6);

readkey;

i: =vga; j: =vgahi;

initgraph(i,j,'. . \bgi');

outputgraph(a,(b+a) /3,a,b,1);

outputgraph((b+a) /3,2*(b+a) /3,a,b,1);

outputgraph(2*(b+a) /3,b,a,b,1);

closegraph;

end;

var sel: integer;

eps: real;

begin

titul;

Writeln('==========================================================');

readkey;

repeat

clrscr;

sel: =main_menu;

case sel of

1: begin