FORUM MP | Pascal : probleme liste simplement chainée(piles)

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

probleme liste simplement chainée(piles)
	Forum : PASCAL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ PASCAL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

FORUM PASCAL
	Page précedente	Page suivante

devlio
Nouveau membre

Inscrit : 02/03/2008
Messages : 6

#149970 Posté le 02/03/08 à 22:21

bonsoir,
j'ai un probleme avec le code ci-dessous

program test2; uses crt; type pt = ^onion; onion=record nbr: integer; suiv:pt; end; var p,h:pt; ch : string; procedure add(var p : pt;var h:pt); begin if (p=nil) then begin p := h; h^.suiv := nil end else begin h^.suiv:=p; p := h; end end; procedure del(var p:pt); var h: pt; begin new(h); if p <> nil then begin h:=p; p:=p^.suiv; dispose(h); end; end; begin new(p); new(h); p := nil; repeat clrscr; writeln('entrer un entier'); readln(h^.nbr); add(p,h); writeln('entrer un autre ? '); read(ch); until ch = 'n'; while p <> nil do begin writeln(p^.nbr); p:=p^.suiv end; repeat del(p); until p = nil; end.

lorsque je remplis avec un seul nombre il n'y a aucun problemes mais avec plus il m'ecris infiniement le dernier nombre entré.
merci d'avance

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

devlio
Nouveau membre

Inscrit : 02/03/2008
Messages : 6

#149972 Posté le 02/03/08 à 23:41

j'ai la solution

program test2; uses crt; type pt = ^onion; onion=record nbr: integer; suiv:pt; end; var p,h:pt; ch : string; procedure add(var p : pt;var h:pt); begin if (p=nil) then begin p := h; h^.suiv := nil end else begin h^.suiv:=p; p := h; end end; procedure del(var p:pt); var h: pt; begin new(h); if p <> nil then begin h:=p; p:=p^.suiv; dispose(h); end; end; begin new(p); p := nil; repeat clrscr; new(h); writeln('entrer un entier'); readln(h^.nbr); add(p,h); writeln('entrer un autre ? '); read(ch); until ch = 'n'; while p <> nil do begin writeln(p^.nbr); p:=p^.suiv end; repeat del(p); until p = nil; end.

merci d'avoir regardé

HAUT DE PAGE

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.