Скачиваний:
9
Добавлен:
10.05.2015
Размер:
840 б
Скачать
Program Kvant_1_var_6; {Љў ­в®ў ­ЁҐ бЁЈ­ « }
Uses gnk,crt;

const
Na=5;
N=240;
T=30.0;
Ax:array[1..Na] of real=(0,T/18*3,T/18*9,T/18*13,T);
Ay:array[1..Na] of real=(4,-10,10,2,4);
V=0.9;
M=3;
S=1.0;
KU:word=5;
Ndis=60;{N/(M+1)}
var
X,Y,Yg,Yif,fo:array [1..N+1] of real;
Xdis,Ydis:array [1..Ndis+1] of real;
i:integer;
nul,C:word;
Ymax,Ymin,Q,V2:real;
W:real;{з бв®в  б१ }
Begin
w:=pi*N/(t*(M+1));
gklf(T,Ax,Ay,X,Y); {ѓҐ­Ґа жЁп Єгб®з­®-«Ё­Ґ©­®© д-ЁЁ ў X, Y }
flf(W,T,X,Y,Yg); {бЈ« ¦Ёў ­ЁҐ}
gra(1,1,X,Y,X,Yg,'€б室­ п дг­ЄжЁп','‘Ј« ¦Ґ­­ п дг­ЄжЁп','ђ §­Ёж ');
dis(M,X,Yg,Xdis,Ydis);{¤ЁбЄаҐвЁ§ жЁп}
idf(1,W,xdis,Ydis,X,Yif,fo);
gra(1,1,X,Y,X,Yif,'€б室­ п дг­ЄжЁп','‚®ббв ­®ў«Ґ­­ п дг­ЄжЁп','ђ §­Ёж ');
gra(1,1,X,Yg,X,Yif,'‘Ј« ¦Ґ­­ п дг­ЄжЁп','‚®ббв ­®ў«Ґ­­ п дг­ЄжЁп','ђ §­Ёж ');
End.
Соседние файлы в папке (2)DISKR