2
2.0. ,
( )
( )
=> .
.
, , . (Turbo Pascal ) ( Free Pascal ) , . , , , , , .
:
- , (: 1,-1995,+22).
- , (: 3.1415, -0.0, +0.0001).
= <, , >. - ( , ), - (), .
: ?
+ (), - (), * (), / (), div ( ), mod ( ).
( ) ( ), .
: (=), (<>), (>), (>=), (<), (<=) - , - ( (TRUE), (FALSE)).
not (), and ( ), or ( ).
, .
Turbo Pascal
( ).
, , , ( , { }).
, .
( ).
, - , ( ).
program < >, . end .
|
|
begin, end , . . , .
. , , .
program Example01;
begin
{ , }
end.
, := ( ), , , . , .
read readln.
Read (< >)
Readln (< >)
. . . , readln . , Enter. readln.
write writeln.
Write (< >)
Writeln (< >)
. . , writeln . , .
program Example02;{ }
begin
writeln()
end.
program Example03;{ }
var s:string;
begin
readln(s);
writeln(s)
end.
program Example04;{ }
var i:integer; r:real;
begin
readln(i,r);
writeln(i,r)
end.
1 2.
. , ; ( ), .
1 2 , :
if then begin 1 end else begin 2 end
begin end , .
|
|
1 2 , :
M1: 1; if then goto M2; 2; goto M1; M2:
M1 M2, . , , , 1 , 2 . :
repeat 1 until
while not do begin 2 end
S = 1 - x2/2! + x**4/4! - x**6/6! +... E.
:
PROGRAM Example01;
LABEL M17,M18;
var X,E,S,A:REAL; I,ZN:INTEGER;
BEGIN
{ ,}
READLN(X,E);
{ S }
{ }
S:=0;
ZN:=1;
I:=0;
A:=1;
{ }
M17:
S:=S+ZN*A;
IF A<E THEN GOTO M18;
ZN:=-ZN;
I:=I+2;
A:=A*X*X/(I*(I-1));
GOTO M17;
M18:
{S}
WRITELN(S);
END.
, . , .
, .
, , ( ). .
, . , , , , .
. , .
, .