Bonjour, j'ai écrit une procédure qui permet de saisir une liste mais je ne vois pas où est le problème ! Merci de votre réponse. voici le sous-programme :
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
28
type element= char;
     liste = ^cellule;
     cellule =
       record
         val: element;
         suiv: liste
       end;
 
procedure saisie (var p:liste);
var q:liste;
begin
  p:= NIL;
  while not eoln do
  begin
    if q=nil then
    begin
      new(q);
      p:=q;
      read(q^.val);
    end
    else
    begin
      new(q^.suiv);
      q:=q^.suiv;
      read(q^.val);
    end;
  end;
end;