.
, , , , . :
Type
Vector = array [1..5] of <_>;
Matrix= array [1..10] of vector;
Var m: matrix;
m, 10 , 5 . i - m [ i ], j - i - m [ i, j ].
:
Type
Matrix= array [1..5] of array [1..10] of < >;
:
type
matrix = array [1..5, 1..10] of < >;
: M [ i, j ]. , , i - j -
, , . , . .., , ,
type
matrix= array [1..5, 1..10] of integer;
var
a, b: matrix;
a b (a:= b). , , . , , , , , , .
. , , .
, ( ). Pascal .
. , . , sqrt , . . , , , : : =sqrt ().
:
: = ();
, , ; ; ,. . .
|
|
|
() :
:=Abs();
: = Round(d);
, :
, , ( , );
.
:
, " ".
:
| Abs () | , | x |
| Sqrt() | real | |
| Sqr() | , | |
| Sin() | real | ( ) |
| Cos() | real | ( ) |
| ArcTan() | real | |
| () | real | |
| Ln () | real | |
| Round() | integer | |
| Trunc() | integer | |
| Frac() | integer | , |
| Int() | integer | , |
, (), . , Textcolor Crt . , , , uses, .
Turbo Pascal , .
:
function ():; var
{ }
Begin
{ } := ; end;
:
function Turbo Pascal, , , ;
;
, , ;
.
, , . .
, , , ( ) , .
, - ( ). ( ), ( ), . ,
|
|
|
, . .
, . . :
: file of
:
f: file of char; { }
f: file of real; { }
f: file of integer; { }
, (char), . file of char text, . . f:text f: file of char.
(, ) : . , . assign, :
assign (, _);
;
_ , .
assign (, , ). , MS-DOS ( ; , ).
assign.
assign(f,':\test.txt'); assign(f,':\test\spb.txt');
, . Pascal , . reset , append , rewrite .
, close. close , , .
:
close (f);
, , .
.
rewrite, .
. f , write(f, x); , f x.
, , : , , , , . , , .
GDI Graphics Device Interface, , Windows 2D
Delphi GDI Windows..
, , GDI:
| Pen | . LineTo ( Rectangle). |
| Brush | . Rectangle, FillRect FloodFill. |
| Font | , . , .. |
| Region | ( ). , . . |
|
|
|
, (0,0) . y . , (0, 50) , 50 .
, , (Pen) (Brush). : (Pen) , (Brush) .
, TCanvas:
| MoveTo | x y | Canvas.MoveTo(50, 100); |
| LineTo | (. MoveTo) x y. | Canvas.LineTo(50, 100); |
PenPos ... , "Canvas.PenPos.x:= 20;", "Canvas.PenPos.y:= 50", "Canvas.PenPos:= Point(20,50);".
, (0,0), , "Canvas.LineTo(100,100);" (0,0) (100, 100). (100, 100), , "Canvas.LineTo(200, 100);", (100, 100) (200, 100). , , MoveTo.
