7.0


2.1.


, ( Norton Commander) TP

turbo < >.pas [Enter].

[Alt + ].

TURBO , 젠 NONAME00.PAS , < >.pas . Windows . , . 2.1.

 

File Edit Search Run Compile Debug Tools Options Window Help

[ ] ZZZZZ.PAS 1 [_]

 

Program parabola; ? var a,b,p,fi,fi1,fm,Fb,bet,ro,rob,c:real;

n,i: integer;

rf1:text;

begin

assign(rf1,'rfi.dat');rewrite(rf1);

n:=24; p:=pi/3; a:=1.5; b:=1.0;

fm:=2;

writeln('i=',i:2,' fi=',fi:7:3,

' RO=',ro:8:4,' figrad=',fi*180/pi:8:3);

writeln(rf1,fi1,ro);end;close(rf1);

end.

 

 




- -  - -  - -