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