(goto) " " , , - , .
goto :
goto <>
(label) , ( ).
:
goto 999;
goto EndBlock;
goto , , . .
, , . goto :
- ( ) () , ;
- ( ).
.
:
ClrScr; { }
InitWork(InitParam); { }
. , , . end , :
label Metka;
Begin
goto Metka; { }
Metka: { }
end;
, , begin end.
, .
.
, , , . . ({). , (}). :
{
,
}
: . " (* " " *) ". , " (* " .
|
|
:
1. unit, uses, label, type, const, var .
begin end, , .
3. , .
4. while, repeat, do until.
5. then else.
:
Abs(N: integer, real): integer, real - ;
Arctan(N: real): real - ( );
Cos(N: real): real - ( );
Exp(N: integer): real - ;
Frac(N: real): real - ;
Int(N: real): integer - ;
Ln(N: integer, real): real - ;
Odd(N: integer): boolean - True, ;
Random: real - 01;
Random(N: integer): integer - 0N;
Round(N: real): integer - ;
Sin(N: real): real - ( );
Sqr(N: integer, real): integer, real - ;
Sqrt(N: integer, real): real - .
Succ(N: < >): < > - .
Pred(N: < >): < > - .
1
/
. .