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

procedure abc (Gr: mass2; var ymin,ymax:real);

procedure top (ymin,ymax,t0,tk: real; var shg,hi,bx,by: real);

procedure draw (Gr: mass2; t,shg,hi,bx,by,h: real);

procedure finish (t0,tk,ymin,ymax,shg,hi,bx,by: real);

procedure output1;

procedure output (t: real; y: mass);

implementation

procedure start (var ymin,ymax,t0,tk,t,k1,k2,k3,k4,t1,t2,t3,h,g:real;var y0,y:mass); {начальныеприсвоения}

begin

assign (f1, 'C:\nu.txt');

assign (e, 'C:\Result.txt');

reset (f1);

readln(f1);

readln(f1);

readln(f1,s, T0);

readln(f1,s, TK);

readln(f1,s, h);

read(f1,s);

for i:=1 to m do begin

read(f1, y0[i]);

y[i]:=y0[i];

end;

readln(f1);

readln(f1, s, t1, t2, t3, t4, t5);

readln(f1,s, k1, k2, k3, k4, k6);

readln(f1,s, g);

readln(f1,s, n);

ymin:=y0[1];

ymax:=y0[1];