home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
win
/
fr
/
micropas
/
exemple.p
< prev
next >
Wrap
Text File
|
1994-09-20
|
376b
|
22 lines
program Exemple;
type essai = ^cellule;
cellule = record
valeur : integer;
suivant : essai;
end;
var a, b, c, d : essai;
begin
new(a);
a^.valeur := 3;
new(a^.suivant);
c := a^.suivant;
c^.suivant := nil;
b := a;
new(d);
d^:= a^;
a^.suivant^.valeur := 2;
end.