Курсовая работа: Экспериментальное исследование свойств методов Рунге-Кутты

type vector_n = array [1..2] of real;

var t0, tf, k, j, n: integer;

t, yt, h, h_screen, e2, e4, e2max, e4max, i_screen: real;

y2, y4: vector_n;

name: string;

outfile: text;

begin

clrscr;

writeln('Please enter file name');

readln(name);

writeln('Please enter h,h_screen');

readln(h,h_screen);

clrscr;

writeln;

assign(outfile,name);

rewrite(outfile);

t0:=0;

tf:=10;

n:=round((tf-t0)/h);

y2[1]:=1;

y2[2]:=0;

y4:=y2;

e2:=0;

e4:=0;

e2max:=0;

e4max:=0;

t:=t0;

i_screen:=h_screen;

for k:=0 to n do