ADA

[ADA - débutant] Concaténer 2 listes

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [ADA - débutant] Concaténer 2 listes

lebest

Bonjour,

Voici la procédure que j'ai écrite pour mettre bout à bout 2 listes d'entiers L et L2. En sortie, je veux que L contienne la concaténation de L et L2

Je défini avant un type cellule

Code :

type Cellule ;
   type Liste is access Cellule ;
 
   type Cellule is record --on définit ici le type cellule qui sera utilisé par la suite
      Val: Natural ;
      Suiv: Liste ;
   end record ;

Puis voici le code de ma procédure

Code :

procedure Abouter(L:in out Liste ; L2: in Liste) is --permet de concaténer deux listes 
         Pcour:Liste:=L;                                     --en sortie : L:=L@L2
         temp:Liste;                                     
      begin
         while Pcour/=null loop
            Temp:=Pcour;
            Pcour:=Pcour.Suiv; 
         end loop; --ici, temp vaut le dernier pointeur non nul de la liste L
         Temp.suiv:=L2; -- c'est ici que j'obtiens un "access checked failed" car manifestement le fait que Temp.suiv vaut null ne plait pas
      end Abouter;

Merci pour votre aide

Message édité par lebest le 26-12-2007 à 17:00:38

Publicité

jovalise

Par l'anneau de l'i.a.

edit : je disais une bétise grosse comme mon cerveau.

Message édité par jovalise le 26-12-2007 à 15:49:56

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

jovalise

Par l'anneau de l'i.a.

A mon avis, la vérité viens d'ailleurs.

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

lebest

Mais encore?

Message cité 1 fois

jovalise

Par l'anneau de l'i.a.

lebest a écrit :

Mais encore?

Vérifie le reste de ton code.

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

lebest

C'est donc que cette procédure est exacte?

Pourtant quand je modifie temp.suiv:=L2 en temp:=L2 je n'obtiens plus de "access check failed"... (mais bien sûr la concaténation devient inexacte, il manque le dernier élément de L)

Message cité 1 fois
Message édité par lebest le 27-12-2007 à 19:35:05

jovalise

Par l'anneau de l'i.a.

lebest a écrit :

C'est donc que cette procédure est exacte?

Pourtant quand je modifie temp.suiv:=L2 en temp:=L2 je n'obtiens plus de "access check failed"... (mais bien sûr la concaténation devient inexacte, il manque le dernier élément de L)

SI ça lève cette erreur c'est que temps = null.
Il doit n'y avoir qu'un élément dans ta liste.
Montre tes ajouts dans la liste L pour voir.

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

FORUM HardWare.fr

Programmation

ADA

[ADA - débutant] Concaténer 2 listes

Sujets relatifs
[RESOLU]Afficher le poids des fichiers listés automatiquement en PHP	[debutant] Programme perso de mastermind, qu'en pensez-vous?
[Oracle - Débutant] Exporter le résultat d'une requête dans un fichier	Débutant html - Insertion d'image & navigateurs
html / php problème débutant	Probleme boucle (debutant) Urgennttttttt
quelques questions d'un débutant.	définir un polynome à l'aide de la fonction "atoi" avec des listes
Aide pour débutant	[Resolu ]Incrementation [ debutanT ]
Plus de sujets relatifs à : [ADA - débutant] Concaténer 2 listes

Page générée en 0.231 secondes