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

begline;

start2(t0,t,y0,y);

top(ymin,ymax,t0,tk,shg,hi,bx,by);

while t<=tk do

begin

Eu(g,k1,k2,k3,k4,k6,t1,t2,t3,t4,d,t,h,m,y0,F,y,Gr);

draw(Gr,t,shg,hi,bx,by,h);

end;

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

readln

end.

2.2 . Модуль

unit MDD;

interface {описание структуры программы}

usesgraph;

const m=5;

m2=5;

type mass=array [1..m] of real; {массивдифференциалов}

mass2=array [1..m2] of real; {массивпереходныхпроцессов}

var

y0, y, F: Mass;

Gr: Mass2;

f1,e: text;

i,grdriver,grmode:integer;

g,n,u4,k3,k4,t1,t2,t3,T4,T5,d,k6,k1,k2,h,ymin,ymax,t0,tk,t, shg,hi,bx,by,i1:real;

s:string[8];

procedure start (var ymin, ymax,t0, tk, t,k1,k2,k3,k4,t1,t2, t3,h,g:real;var y0,y:mass);

procedure start2 (var t0,t: real; var y0,y: mass);Procedure Eu (var g,k1, k2,k3,k4,t1,t2,t3, u4, k, d, t, h: real; m:integer; var y0, F, y: mass; var Gr: mass2);

Procedure R (var y0, F: mass; g,k1,k2,k3,k4,k6,t1,t2,t3,t4,n: real);

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