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

gas / DISKR1

.PAS
Скачиваний:
14
Добавлен:
15.06.2014
Размер:
902 б
Скачать
Program Kvant_1; {Љў ­в®ў ­ЁҐ бЁЈ­ « }
Uses gnk,crt;

const
Na=10;
N=240;
T=30.0;
Ax:array[1..Na] of real=(0,T/18*5,T/18*12,0,T/18*(-4),T/18*(-8),T/18*3,T/18*4,T/18*(-3),T/18*(-4 ));{}
Ay:array[1..Na] of real=(0,5,15,20,25,30,35,40,45,50);{}
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.
Соседние файлы в папке gas