Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

gas / (3)POMEX / POMEX

.PAS
Скачиваний:
14
Добавлен:
15.06.2014
Размер:
2.26 Кб
Скачать
uses gnk,crt;

const MKOSys:word=19; {Њ ЄбЁ¬ «м­ п Єа в­®бвм ®иЁЎЄЁ ў­®бЁ¬®© бЁб⥬®©}
k:word=4; {Њ ЄбЁ¬ «м­ п Єа в­®бвм ®иЁЎЄЁ ЁбЇа ў«пҐ¬ле бЁб⥬®©}
nuk:word=0;
inf:word=4; {Љ®«-ў® Ё­д®а¬ жЁ®­­ле а §а冷ў}
vs:real=0.7; {ЏаҐ¤Ї®« Ј Ґ¬ п з бв®в  Їа ўЁ«м­® ЇҐаҐ¤ ­­ле б®®ЎйҐ­Ё© ¤«п Є®¤Ґа }
ms:real=0; {Њ в. ®¦Ё¤ ­ЁҐ ¤«п Є®¤Ґа }
ss:real=0.5; {‘।­ҐЄў ¤а вЁз­®Ґ ®вЄ«®­Ґ­ЁҐ ¤«п Є®¤Ґа }
m0:real=0; {Њ в. ®¦Ё¤ ­ЁҐ ¤«п Є ­ « }
v0:real=0.9; {ЏаҐ¤Ї®« Ј Ґ¬ п з бв®в  Їа ўЁ«м­® ЇҐаҐ¤ ­­ле б®®ЎйҐ­Ё© ¤«п Є ­ « }
s0:real=0.5; {‘।­ҐЄў ¤а вЁз­®Ґ ®вЄ«®­Ґ­ЁҐ ¤«п Є ­ « }
N=200; {Љ®«ЁзҐбвў® б®®ЎйҐ­Ё©}
T=80; {ЏҐаЁ®¤ дг­ЄжЁЁ}
KU:word=15;
Ax:array [0..5] of real=(0,22.22,35.55,40,53.33,80);
AY:array [0..5] of real=(4,10,4,-4,-10,4);

var x,y,Yk,YKout:array [1..N] of real;
Ymax,Ymin,Q:real;

mas:masarray;
mop,mt1,mt2:intarray;
mat:binarray;
opz:binarray1;
mvk, mdv, ki, kk, kp:binarray2;
a, b:integer;
i, j:integer;
mj, kj:integer;
ir, kc1:word;
t0, t1, pk:real;
d:integer;
npr,nrs:word;
krip, kri:word;

begin
clrscr;
rpt(t0,vs,ms,ss,pk,t1);

opd4(mas,mop,nrs,npr,k,inf,1);

kj:=inf+1;
mj:=npr+1;

mtab4(mas,inf,mop,mat,k,1);


{for i:=1 to MJ do
begin
for j:=1 to KJ do
write(MAT[i,j],' ');
writeln;
end;}

j:=0;
writeln('* INF= ',inf);
writeln('* NRS= ',nrs);
writeln('* NPR= ',npr);
readkey;
b:=0;
GKLF(T,Ax,Ay,x,y);
Ymin:=min(y);
Ymax:=max(y);
SAG(1,Vs,Ms,Ss,Ymin,Ymax,KU,Q);
{d:=round(exp(ln(2)*inf)-1);}

for i:=1 to N do begin
KVN(KU,Q,Ymin,y[i],NUK,Yk[i]);
dvk(NUK,inf,mdv);
for a:=1 to inf do write(mdv[a]);write('-> ');

KDR(MAT,MDV,KP,MJ,KJ,NRS,INF);
for a:=1 to nrs do write(kp[a]);write('-> ');

KAN(kp,ki,mvK,NRS,MKOSys,t0,t1,pk,s0,m0,ir);
for a:=1 to nrs do write(ki[a]);write('-> ');

isp4(kp,ki,mat,mj,kj,NRS,mop,kk,krip,kri);
for a:=1 to nrs do write(kk[a]);write('-> ');

fillchar(MvK,sizeof(mvk),' ');
pvb(MAT,Kk,MvK,MdV,KJ,KC1,NRS);
for a:=1 to inf do write(mvK[a]);writeln;
BVUK(MVK,YKout,INF,i,Q,Ymin);
end;
readkey;
gra(1,0,X,Yk,X,YKout,'„®','Џ®б«Ґ','');
Demo(N,kc1);

end.
Соседние файлы в папке (3)POMEX