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

begin

clrscr;

assign(f,'f42. txt');

reset(f);

while not eof(f) do begin

readln(f,s);

while length(s) <79 do s: =' '+s+' ';

writeln(s);

end;

close(f);

end;

function main_menu: integer; {Главное меню}

var i: integer;

begin

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

Writeln('Что будем делать? ');

Writeln('----------------------------------------------------------');

Writeln('0 - выход');

Writeln('1 - решать тестовый пример a=1,5 b=6 k=10 eps = 0.0001');

Writeln('2 - решать пример с произвольными a, b, k, eps');

Writeln('----------------------------------------------------------');

Write('Выбор >>> '); readln(i);

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

main_menu: =i;

end;

procedure outputgraph(a,b,a1,b1: real; n: integer); {Вывод графика}

var i,j,j1,k: integer; t,y1,y2,x1,x2,x,y: double; s: string;

begin

clearviewport;