Discussion :

[couls]

bonjour;
Suite à une petite recherche je suis parvenu à prendre quelques exo en algo, donc là je me sent bloqué à cause de 3 exo. Si quelqu'un pourrait me venir en aide. Merci d'avance

Exo1:
Soient deux listes bidirectionnelles (T1, Q1) et (T2,Q2), écrire un sous programme qui insère dans la liste (T1, Q1) après une valeur VAL de type entier supposée unique si elle existe, la liste (T2, Q2).

Exo2: interclassement de Piles

Soient deux piles P1 et P2 réalisées sous la forme de tableaux et contenant des entiers. Les piles P1 et P2 sont quelconques donc non triées.
Ecrire un sous programme qui effectue l’interclassement des piles P1 et P2 dans une pile P3, c'est-à-dire que la pile P3 doit contenir une valeur de P1 suivie d’une valeur de P2

EXERCICE III
Ecrire un sous programme qui supprime tous les éléments d’une liste bidirectionnelle de tête T et de queue Q.

[PRomu@ld]

Ces exercices ne sont vraiment pas très dur. Comme tu as visiblement envie d'apprendre, on ne va pas te donner le code (ça ne t'aiderai absolument pas). On peut bien entendu t'aider mais il faut que tu nous dises ce qui te pose problème dans chacun des exercices afin que l'on puisse t'aider.

[couls]

bonjour PRomu@ld;
Merci pour votre contribution, mais sachez que j'ai pas l'habitude de poser ces genres de question. C'est un langage que j'apprend tout seul, avec 2 ou 3 corrigés je pourrai m'en sortir, tout le monde à sa methode de travail.
En tout cas merci

[Tober]

Pour résoudre des problemes de liste, rien de mieux qu'un dessin quand on a pas l'habitude !
par exemple l'exo 1,
tu dessines les deux listes, après on te dit "insère dans la liste (T1, Q1) après une valeur VAL"
Question reformulé : Comment trouver VAL dans la liste ?
ensuite, tu dois inserer la deuxieme liste à cette position, donc question : Comment insérer une liste dans une autre liste à un endroit précis ?
Et tu peux t'aider des dessins pour voir comment faire chaque chose et pour faire ton algorithme étape par étape !

[onlytime]

pour l'exo III j'ai fais un essai

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
21
22
23
24
25
26
27
 
type ptr=ptr1
       ptr1=record
       val:integer;   
       suiv:ptr;
       prec:ptr
       end;
 
procedure supprimer(var l:ptr);
 
 Var A,B:ptr;
   begin
      l:=A;
      if (l:=nil) then write('liste vide')
      else
           if(A^.suiv=nil) then dispose(A)
           else
             begin
               while(a^.suiv<>nil)do
                    begin
                      A:=B;
                      A:=A^.suiv;
                      dispose(B);
                   end;
            dispose(A);
            end;
   end;

essaye de le derouler