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

i:=40;

while i<460 do

begin

line(40,i,600,i);

i:=i+42

end;

end;

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

begin

for i:=1 to m2 do begin

if ymin>Gr[i] then ymin:=Gr[i];

if ymax<Gr[i] then ymax:=Gr[i];

end;

end;

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

begin

shg:=560/(tk-t0);

hi:=420/(ymax-ymin);

bx:=600-tk*shg;

by:=440-ymax*hi;

end;

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

{процедурапостроенияграфиков}

begin

for i:=1 to m2 do begin

moveto(round((t-h)*shg+bx),round(GetMaxY-Gr[i]*hi-by));

SetColor(11+i);

SetLineStyle(0,1,3);

lineto(trunc(t*shg+bx),trunc(GetMaxY-Gr[i]*hi-by));