Скачиваний:
10
Добавлен:
10.05.2015
Размер:
1.43 Кб
Скачать
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;
S=1.0;
KU:word=5;
M=3;
Ndis=N div(M+1);
var
X,Y,Yg,Yif,fo:array [1..N] of real;
Xdis,Ydis:array [1..Ndis] of real;
i,j,k:integer;
nul,C:word;
Ymax,Ymin,Q,V2:real;
Wg:real;{з бв®в  б१  ЇаЁ бЈ« ¦Ёў ­ЁЁ}
Wdis:real;{— бв®в  ЇаЁ ¤ЁбЄаҐвЁ§ жЁЁ Wdis=pi*N/(T*(M+1))в Є Їа®бв® ­Ґ ¬Ґ­пҐвбп}
Wif:real;{— бв®в  ЇаЁ ў®ббв ­®ў«Ґ­ЁЁ}
err:real;
Begin
clrscr;
wdis:=pi*N/(t*(M+1));
gklf(T,Ax,Ay,X,Y); {ѓҐ­Ґа жЁп Єгб®з­®-«Ё­Ґ©­®© д-ЁЁ ў X, Y }
writeln('’ Ў«Ёж  ®иЁЎ®Є ў®ббв ­®ў«Ґ­Ёп');
write('Wба\Wў®бб ');
for j:=0 to 6 do begin {§ Ј®«®ў®Є}
wif:=pi*N/(t*(j+1)); {<<<----}
write(Wif:9:4);
end;
writeln;
writeln;
for j:=0 to 17 do begin {<<<------}
Wg:=pi*N/(t*(j+1)); {<<<-----}
flf(Wg,T,X,Y,Yg); {бЈ« ¦Ёў ­ЁҐ}
write(Wg:9:4,' ');
for k:=0 to 6 do begin {<<<-----}
wif:=pi*N/(t*(k+1)); {<<<------}
dis(M,X,Yg,Xdis,Ydis);{¤ЁбЄаҐвЁ§ жЁп}
idf(0,Wif,xdis,Ydis,X,Yif,fo);{‚®ббв ­®ў«Ґ­ЁҐ}
err:=0;
for i:=1 to N do err:=err+abs(Yif[i]-Yg[i]); {®иЁЎЄ }
err:=err/N;
write(err:9:4);
end;
writeln;
end;
write('W¤Ёб=',Wdis:-9:4);
readkey;
End.
Соседние файлы в папке (2)DISKR