Скачиваний:
9
Добавлен:
10.05.2015
Размер:
1.08 Кб
Скачать
uses gnk,gnk2,crt;

const
k:word=4;
nuk:word=0;
inf:word=4;
v:real=0.9;
m:real=0;
s:real=0.5;
N=200;
T=80;
pi:real=3.14159265258;
KU:word=15;
M1:word=3;
NDis=50;

var Ax,Ay:array [0..5] of real;
x,y,Y0,Yif, Fo:array [1..N+1] of real;
XDis, YDis:array [1..NDis+1] of real;
Ymax,Ymin,Q,W: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;
W:=pi*N/(T*(M1+1));

b:=0;
Ax[0]:=0.001;Ay[0]:=4;
Ax[1]:=22.22;Ay[1]:=10;
Ax[2]:=35.55;Ay[2]:=4;
Ax[3]:=40;Ay[3]:=-4;
Ax[4]:=53.33;Ay[4]:=-10;
Ax[5]:=80;Ay[5]:=4;

GKLF(T,Ax,Ay,x,y0);
{Ymin:=min(y);
Ymax:=max(y);
SAG(1,V,M,S,Ymin,Ymax,KU,Q);}
FLF(W,T,X,Y0,Y);

Dis(M1, X,Y,XDis, YDis);
IDF(0, W, XDis, YDis, X, Yif, Fo);
gra(1,1,X,Y,X,Yif, '„®','Џ®б«Ґ','');


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