Bonjour,
Attention : dans le test
if courant^.s<courant^.svt^.s then
tu dois absolument prévoir le cas (inévitable) où courant^.svt vaut nil, sous peine de plantage.
Remarque importante également : ta procédure aff utilise des variables globales, ce qui doit être évité. Pour y remédier, fournis-lui toutes les variables dont elle a besoin sous forme de paramètres et variables locales :
1 2 3 4 5 6 7 8 9 10
| procedure aff (s:string; debut:pointeur);
var courant : pointeur;
begin
courant:=debut;
while courant <> nil do
begin
writeln (courant^.s);
courant:=courant^.svt;
end;
end; |
Partager