Курсовая работа: Программирование и основы алгоритмизации

close(f1);

end;

procedure start2 (var t0,t: real; var y0,y: mass);
{начальныеприсвоения2}

begin

reset (f1);

readln(f1);

readln(f1);

readln(f1);

readln(f1);

readln(f1);

read(f1,s);

for i:=1 to m do begin

read(f1, y0[i]);

y[i]:=y0[i];

end;

close(f1);

T:=t0;

end;

Procedure Eu (varg,k1, k2,k3,k4,t1,t2,t3, u4, k, d, t, h: real; m:integer; vary0, F, y: mass; varGr: mass2);

var i: integer;

begin

R (y0,F,g,k1,k2,k3,k4,k6,T1,T2,T3,T4,n);

for i:=1 to m do for i:=1 to m do

y[i]:=y0[i]+h*F[i];

graphiks(Gr,y,y0,g,k1,k2,k3,k4,k6,T1,T2,T3,T4,n);

t:=t+h;

for i:=1 to m do

y0[i]:=y[i];

end;