Write WriteLn ( Write WriteLn). WriteLn Write , , , , , .
, Write WriteLn. , , , , . WriteLn , .
, . .
. (Extended) , ( ) . , .
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
R:Extended;
Fi:Integer;
begin
//
Write(' : ');
ReadLn(Fi);// Fi
R:=Fi*Pi/180;// R
// R
WriteLn(' = ',R);
WriteLn; //
// R tg(R)
WriteLn('tg(', R, ') = ', Tan(R));
ReadLn;
end.
, , 'Fi = ', 'tg(' ') = ' , R Tan(R) Extended.
Fi 30 :
, .
Write , , 30. Enter, . WriteLn(' = ',R) , , WriteLn , WriteLn('tg(', R, ') = ', Tan(R)) :
tg(5.23598775598299E-0001) = 5.77350269189626E-0001.
( ) : 23 ; , +.
|
|
, , , :n , :n:m (< ><>< >), n , ( ) , , m , .
n . . ( 10).
, :
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
R:Extended;
Fi:Integer;
begin
//
Write(' : ');
ReadLn(Fi);// Fi
R:=Fi*Pi/180;// R
// R
WriteLn(' = ',R:0);
WriteLn; //
// R Tan(R)
WriteLn('tg(', R:0:2, ') = ', Tan(R):14);
ReadLn;
end.
Fi 30 :
R ( :0), ( :0:2), , . Tan(R) 14 6 ( :14).