Исследование динамики движения ЛА в продольной плоскости с использованием не линейной модели, страница 2

writeln (l,'       ',tm[l]:4:4 ,'      ',Vm[l]:4:4,'         ',TTam[l]:4:4,'        ',wz1m[l]:4:4,'         ',mm[l]:4:4);

writeln (c,l,'     ',tm[l]:4:4 ,'      ',Vm[l]:4:4,'         ',TTam[l]:4:4,'        ',wz1m[l]:4:4,'         ',mm[l]:4:4);

{writeln (l,'  ',TANGm[l-1]:4:4);}

end;

Close(c);

writeln ('0-‚›•Ћ„');

writeln ('¤«п Їа®«®«¦ҐЁп  ¦¬ЁвҐ «оЎго Є« ўг');

p:=readkey;

until p='0';

end;

Procedure RezerV;

Var l,i,j,h,g,d:integer;

p,e,b,a,t:char;

s1,s:string;

f:text;

begin

repeat

textcolor(yellow); textbackground(blue);

writeln('ЊЂ‘‘€‚›   ‚ђ…Њџ   „Ђ‹њЌЋ‘’њ  ‚›‘Ћ’Ђ  “ѓЋ‹ ’ЂЌѓЂ†Ђ “ѓЋ‹ Ђ’ЂЉ€  ');

Assign(f,'LR4.DAT');

rewrite(f);

writeln(f,'ЊЂ‘‘€‚›   ‚ђ…Њџ   „Ђ‹њЌЋ‘’њ  ‚›‘Ћ’Ђ  “ѓЋ‹ ’ЂЌѓЂ†Ђ “ѓЋ‹ Ђ’ЂЉ€  ');

writeln( 0,'    ',0,'  ',100,'  ',0,'   ',0,'   ',0 );

writeln(f, 0:4,'           ',0:4,'       ',100:4,'         ',0:4,'        ',0:4,'        ',0:4 );

for l:=1 to n do begin

{if l/3=l div 3  then begin{l<=138) and (l>=142) then begin}

writeln (l,'  ',tm[l-1]:4:4 ,'    ',xm[l-1]:4:4,'    ',ym[l-1]:4:4,'    ',TANGm[l-1]:4:4,'     ',ALFAm[l-1]:4:4);

writeln(f,'  ',tm[l-1]:4:4 ,'     ',xm[l-1]:4:4,'     ',ym[l-1]:4:4,'     ',TANGm[l-1]:4:4,'     ',ALFAm[l-1]:4:4);

{writeln (l,'  ',TANGm[l-1]:4:4);}

end;

Close(f);

writeln ('0-‚›•Ћ„');

t:=readkey;

until t='0';

end;

Procedure Red;

Var

d,m,e,h,p,s,x4,y4,x7,y7,i4,x14,y14,x17,y17:integer;

F: array [1..100] of integer;

o,b:char;

begin

Clrscr;

d:=detect;

InitGraph(d,m, 'C:\tp7');

e:=GraphResult;

if e<>grOk then

writeln(GraphErrorMsg(e))

else

begin

x4:=GetMaxX;

y4:=GetMaxY;

setcolor(7);

{line(0,y4,x4,y4);

line(0,0,0,y4);}

line(0,y4-30,x4,y4-30);

line(30,0,30,y4);

x7:=round(tm[n]*100/4);

outtextxy(20,y4-25,'0');

outtextxy(30+x7,y4-25,'');

outtextxy(30+2*x7,y4-25,'');

outtextxy(30+3*x7,y4-25,'');

outtextxy(27,0,'^');

outtextxy(40,0,'V,m/c');

outtextxy(x4-10,y4-33,'>');

outtextxy(x4-40,y4-47,'t,c');

y7:=round((Vmax)/5);

outtextxy(0,y4-y7-30,'');

outtextxy(0,y4-2*y7-30,'');

outtextxy(0,y4-3*y7-30,'');

outtextxy(0,y4-4*y7-30,'');

outtextxy(0,y4-5*y7-30,'');

setcolor(11);

repeat

for h:=1 to n-2 do begin

x14:=30+round(tm[h]*100);

y14:=y4-30-round(Vm[h]);

x17:=30+round(tm[h+1]*100);

y17:=y4-30-round(Vm[h+1]);

line(x14,y14,x17,y17);

end;

o:=readkey;

if o<>'E' then  break ;

until o='E';

CloseGraph;

end;

end;

Procedure Red3;

Var

d,m,e,h,p,s,x4,y4,x7,y7,i4,x14,y14,x17,y17:integer;

F: array [1..100] of integer;

o,b:char;

begin

Clrscr;

d:=detect;

InitGraph(d,m, 'C:\tp7');

e:=GraphResult;

if e<>grOk then

writeln(GraphErrorMsg(e))

else

begin

x4:=GetMaxX;

y4:=GetMaxY;

setcolor(9);

{line(0,y4,x4,y4);

line(0,0,0,y4);}

line(0,y4-30,x4,y4-30);

line(30,0,30,y4);

x7:=round(tm[n]*100/4);

outtextxy(20,y4-25,'0');

outtextxy(30+x7,y4-25,'');

outtextxy(30+2*x7,y4-25,'');

outtextxy(30+3*x7,y4-25,'');

outtextxy(27,0,'^');

outtextxy(40,0,'m,kr/c');

outtextxy(x4-10,y4-33,'>');

outtextxy(x4-40,y4-47,'t,c');

y7:=round((Vmax)/5);

outtextxy(0,y4-y7-30,'');

outtextxy(0,y4-2*y7-30,'');

outtextxy(0,y4-3*y7-30,'');

outtextxy(0,y4-4*y7-30,'');

outtextxy(0,y4-5*y7-30,'');

setcolor(11);

repeat

for h:=1 to n-2 do begin

x14:=30+round(tm[h]*100);

y14:=y4-30-round(mm[h]/2);

x17:=30+round(tm[h+1]*100);

y17:=y4-30-round(mm[h+1]/2);

line(x14,y14,x17,y17);

end;

o:=readkey;

if o<>'E' then  break ;

until o='E';

CloseGraph;

end;

end;

Procedure Red1;

Var

d,m,e,h,p,s,x4,y4,x7,y7,i4,x21,y21,x23,y23,x31,y31,x33,y33:integer;

F: array [1..100] of integer;

o,b:char;

begin

Clrscr;

d:=detect;

InitGraph(d,m, 'C:\tp7');

e:=GraphResult;

if e<>grOk then

writeln(GraphErrorMsg(e))

else

begin

x4:=GetMaxX;

y4:=GetMaxY;

setcolor(7);

setcolor(8);

line(50,0,50,y4-30);

line(50,y4-30,x4,y4-30);

x7:=round(tm[n]*100/4);

outtextxy(50,round(y4)-17,'');

outtextxy(50+x7,round(y4)-17,'');

outtextxy(50+2*x7,round(y4)-17,'');

outtextxy(50+3*x7,round(y4)-17,'');

outtextxy(47,0,'^');

outtextxy(x4-110,round(y4)-39,'t,c');

outtextxy(x4-30,y4-ROUND(Y4)-17,'>');

outtextxy(57,0,'x,y');

outtextxy(x4-10,y4-33,'>');

y7:=round(ym[n]);

outtextxy(10,round(y4)-y7-30,'');

outtextxy(10,round(y4)-2*y7-30,'');

outtextxy(10,round(y4)-3*y7-30,'');

outtextxy(10,round(y4)-4*y7-30,'');

setcolor(12);

repeat

for h:=1 to n-1 do begin

setcolor(14);

x21:=50+round(tm[h]*100);

y21:=y4-30-round(xm[h]/2);