Discussion :

[iwhisper]

Bonjour

Voici le code :

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;

et le résultat :



SVP puis-je savoir comment le corriger ?

Merci

[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.

[anapurna]

salut

a mon avis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

test^.next := temp^.next

devrais etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 test := temp^.next

[Paul TOTH]

test n'est jamais initialisé.