. . VAR (), , .
:
Var < 1>:< 1>;
< 2>:< 2>;
......................................
< N>:< N>;
: var i, j, k, n, m:integer;
x, y, z, max, min:real;
uslov:boolean;
simvol:char;
a,b: array[1..15] of real;
d, cd:array[1..5,1..7} of integer;
S, dad:month;
- , , , .
Turbo Pascal . . . , . .
. PROCEDURE FUNCTION, .
, ( ).
:
Function < > (< >:< >,...):< >;
< , , >;
{ }
Begin
< >:=<>; { }
End;
: y=xn.
function stepen(n:integer; x:real):real;
var i:integer;
Begin
stepen:=1;
for i:=1 to n do stepen:=stepen*x;
End;
stepen(9,alfa);
(, ) . , .
-
.
:
Procedure < > (< .1 >,< .2 >,... < .n >,):;
< , , >;
{ }
|
|
Begin
< >; { }
End;
( ), var. . .
Turbo Pascal , . ; . Turbo Pascal : ().
, , . : , , .
(:=) , , , . .
:
< >:=<>;
: alfa_67:= (sqrt(a)-exp((b-c)*ln(2.5+1/a)))/(d+ln((a+b)*c)/ln(3));
(goto) , , - , .
:
GOTO <>;
: goto 36; goto beta8;
.
:
< >( );
: ClrScr; { }
InitWork(a,b,c,d); { }
. .
:
BEGIN
GOTO <>; { }
<>: { }
END;