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

begin

F[1]:=((g-y0[2]*k6-y0[1])*k2)/T2;

F[2]:=y0[5];

F[3]:=(k3*(y0[1]+y0[2])-y0[3])/T3;

F[4]:=(k4*y0[1]-y0[4])/T4;

F[5]:=(y0[4]-2*n*T5*y0[5]-y0[2])/(T5*T5);

end;

procedure graphiks (varGr: mass2; y, y0: mass; g,k1,k2,k3,k4,k6,T1,T2,T3,T4,n: real);

begin

Gr[1]:=g-k6*y[2];

Gr[2]:=(g-y[2]*k6y[1])*k2+k1*(g-y[2]*k6);

Gr[3]:=y[3];

Gr[4]:=y[2];

Gr[5]:=y[2]*k6;

end;

procedure begline;

begin

grdriver:=detect;

initgraph(grdriver, grmode, 'd:\bp\bgi');

setfillstyle(1,11);

bar(0,0,640,480);

setcolor(15);

rectangle(40,460,600,40);

i:=40;

while i<600 do

begin

setcolor(15);

line(i,40,i,460);

i:=i+56;