Bonjour
Voici le code :
et le résultat :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 procedure supprime(var tete:tptr); var temp,test:tptr; e:integer; begin temp:=tete; write('e:'); readln(e); if tete=nil then writeln('La liste est vide,pas de suppression!') else begin while temp^.next<>nil do begin if temp^.data=e then begin test^.next:=temp^.next; dispose(temp); temp:!test; end else begin temp:=temp^.next; end; end; end; end;
SVP puis-je savoir comment le corriger ?
Merci
Partager