6.0 : System, Crt, Dos, Graph, Graph3, Overlay, Printer, 3 Vision. System , uses. : uses Crt, Dos, Printer;
.
System ; .
Crt .
Dos , Dos.
Graph3 3.0.
Overlay .
Printer .
Turbo3 3.0.
Graph , CGA, EGA, VGA, HERC, IBM 3270, MCGA ATT6300.
Vision - .
System , uses. .
.
Abc(X:real/integer):real/integer X. .
ArcTan(X:real) , X .
Cos(:real): real X; .
Exp(:real): real X, . . X. 2.718282.
Frac(:real):real X.
Int(:real):real X.
Ln(:real):real X, . . ( = 2.718282).
Pi:real (3.141592653897932385).
Sin(:real):real X. .
Sqr() X. .
Sqrt(:real):real X.
Random:1 0..0.99.
Random(I:word):word 0..I.
Randomize .
.
Dec(X{,n}) X n. n X .
Inc({,n}) X n. n X .
Pred(s) , S . . S , .
|
|
Succ(S) , S . . S , .
Odd(I:integer):boolean True, I , False, I .
.
Chr(I:byte):char , I. 255, .
Ord(S):longint S , S.
Round(:real):longint X, .
Trunc(:real):longint , X, X >= 0, X, < 0.
.
Delay(I:word) I .
Exit . , . Exit , , .
Halt(N:word) ( .S-) DS ( .-). N , .
RunError(ErrCode:word) . ErrCode byte, .
.
FillChar(,D1,Z) (). . , D1. ; D1 , ; Z , .
Move(1,2,D1) , 1, , 2. D1. 1 2 ; D1 .
Hi(I:integer):byte I . 0.
Lo(I:integer):byte I . 0.
ParamCount:string , .
ParamStr (N:WORD): string .
SizeOf(I):word , . IT - .
Swap(I:integer):integer , I intege