Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
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.
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.