. . , , .
, . . . , . - - .
. , . - . , . , , . - , , .
() , , , , .
, .
type < > = ^ < >
( ^ , ).
:
type
= ^ integer;
q = ^ record
:integer;
: string [20]
end;
- q. - , - .
:
- ; , , ( ), .
, . nil . p:=nil
:
, .
|
|
|
,
var i: ; zap: q;
:
var i: ^integer;
. , * - , q * .
, i, new(i), new - - , i - ,
new(i) :
1) i;
2) i i.
, writeln(i) .
, . , ^ , , , . ,
var:^integer
new(i) integer.
i^:= 58
58.
^ . , , .
, ec j - integer,
j:=j+i^2; i^:i^div 3+4; i^sqr(i^) ..
b
type mas = array[l... 100] of integer,,
var b:^mas
, , :
b^[2], b^[k+5].
^, new(p), , ( ) dispose(p). dispose(p) , , , , ( nil).
dispose(p) nil, .
, .
. , = <>.
new dispose , .
. , . , , , . , , :
|
|
|
) ;
) .
.
. : , , (.. , ). , .
, - . , . - . .
. ,
) ;
) .
- , , , - , - .
(, , , nil).
- ,
1,75
35,7 1,75
-6,94 35,7 1,75
: . . , . .
28
program stack; ( - }
type s^StackComp; StackComp=record
b:real;
p;s;
end;
var a:s; k:real;
procedure Dobavl(k:real); ( }
var j: s;
begin new(j); ( }
j^.b:=k; ( }
j^.p;=a; ( } a:=j ( )
end;
procedure Vzjat(var k:real); ( )
var j:s;
begin j:=;
k:j^b; (k- }
a:=j^p; ( )
dispose(j) ( )
end;
begin ( )
a:=nil; Dobavl(1.75);
Dobavl(35.7);
Dobavl(-6.94); ( : -6.94, 35.7, 1.75)
Vzjat(k); writeln(k); ( )
Vzjat(k); writeln(k); ( )
Vzjat(k); writeln(k) ( )
end. ( : -6.94 35.7 1.75}
1. ?
2. 2 ?
3. 3. ?
() - . , . -, Graph.
, CGA, EGA, VGA, SVGA IBM- .
|
|
|
Graph, tpu
uses graph;
Initgraph. , . 3.1.
3.1
