home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
win
/
fr
/
micropas
/
test.p
< prev
Wrap
Text File
|
1994-11-08
|
2KB
|
89 lines
program Test;
type arbre = ^noeud;
noeud = record
val : integer;
gauche,droite : arbre;
end;
date = record
jour, mois, annee : integer;
end;
compose = record
taille : integer;
date : date;
tete : arbre;
end;
pInt = ^integer;
ppInt = ^pInt;
var globale : integer;
i : integer;
flag : integer;
enr : compose;
ptr : ppInt;
function Essai(var ref : integer; argument : integer; struct : compose) : integer;
var locale : integer;
begin
writeln('On entre dans la fonction "Essai".');
new(struct.tete);
struct.tete^.val := -1;
struct.tete^.gauche := nil;
struct.tete^.droite := nil;
globale := 3;
locale := 4 * argument;
ref := locale;
Essai := -2;
end;
begin
writeln('Debut du programme');
writeln('');
readln(flag);
globale := 2;
i := 0;
if flag = 0 then
begin
for i:= 1 to 4 do
globale := i * globale;
globale := globale mod 2456;
end
else
repeat
globale := globale - 2;
i := i * globale;
until globale <= -3;
writeln('Essai sur les pointeurs multiples ...');
writeln('');
new(ptr);
new(ptr^);
ptr^^ := 20;
enr.taille := -1;
enr.date.mois := 3;
enr.tete := nil;
flag := Essai(i,20,enr);
writeln('Sortie du programme avec pour flag la valeur');
writeln(flag);
end.