program td11;
uses
u_arbre; { u_arbre est disponible sur mon site ;-) }
var
a, b, c, d: arbre;
begin
writeln;
writeln(' TD11 - Correction de Didier ');
writeln('©2001 All Rights Reserved to
www.Software-DS.com');
writeln;
b := Creat_noeud('y', nil, nil);
c := Creat_noeud('z', nil, nil);
a := Creat_noeud('+', b, c);
b := Creat_noeud('z', nil, nil);
c := Creat_noeud('*', b, a);
b := Creat_noeud('x', nil, nil);
a := Creat_noeud('-', b, c);
b := Creat_noeud('y', nil, nil);
c := Creat_noeud('x', nil, nil);
d := Creat_noeud('/', b, c);
b := Creat_noeud('*', a, d);
writeln('Parcours prefixe:');
Parcours_prefixe(b);
writeln;
writeln;
writeln('Parcours infixe');
Parcours_infixe(b);
writeln;
writeln;
writeln('Parcours postfixe');
Parcours_postfixe(b);
writeln;
writeln('Made wih Macintosh, Think Different !');
Vide_arbre(b); {
Desallocation ! }
{ ©2001 All
Rights Reserved to www.Software-DS.com
18/12/01 }
end.
|