Supprimer un élément dans une liste chaînée

Version imprimable

Bonjour

Voici le code :

Code:

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;

et le résultat :

http://store1.up-00.com/2016-05/1462599581922.png

SVP puis-je savoir comment le corriger ?

Merci

07/05/2016, 11h01
l_autodidacte

Bonjour;

Quand quelqu'un essaie de t'aider, il sera obligé de tout taper pour vérifier là où ça coince car une capture d'écran dans ce cas n'est pas recommandée.
Le mieux est d'ouvrir le fichier pascal avec un éditeur de texte(le plus simple tel que Notepad) sélectionner le code le copier puis le coller dans la fenêtre d'édition (comme tu l'as fait avec ta question) et ne pas oublier les balises pour le code.
10/05/2016, 17h52
anapurna

salut

a mon avis

Code:

test^.next := temp^.next

devrais etre

Code:

test := temp^.next
10/05/2016, 18h18
Paul TOTH

test n'est jamais initialisé.