Les listes chainées en pascal la creation,modification ,l'ajoute , suppression , l'affichage . . .✅

* Ce programme gère toutes les choses suivantes :

1- la creation d'un liste chainée
2- L' affichage des element de la liste
3- Counter le nombre de element de la liste
4- Ajoute un element dans la tete de la liste
5- Ajoute un element dans la queue de la liste
6- Ajoute un element dans un possition K
7- Trieé la liste dans un order croissant
8- L'ajoute d'un element dans un liste déjà trieé
9- Supprimer un element

program tp;
type liste = record 
     inf : integer ;
     suiv : ^liste ; 
 end ;    
var r : char ;
    choix : integer ; 
    courant,tete : ^liste ;
procedure affichage ;
var q : ^liste ;
begin 
if tete = nil then
writeln('la liste est vide !') else 
q:=tete ;    
while (q <>nil ) do
begin
writeln('          ',q^.inf );
q := q^.suiv ;
end;
end;
procedure count;
var c : integer ;
    q : ^liste ;
begin
if tete = nil then
writeln('la liste est vide !') else
q:=tete ;
c:=0 ;
while (q <>nil ) do
begin
q := q^.suiv ;
c:=c+1 ;
end;
writeln('on a ',c,' element dans cette liste ');
end;
procedure ajoute_tete ;
var a : ^liste ;
begin
if tete = nil then
writeln('la liste est vide !') else
new (a);
writeln('donner un valeur ');
readln(a^.inf );
a^.suiv := tete ;
tete := a ;
end;                      
procedure creation;
begin
new(tete);
courant:=tete ;
writeln('donner un variable :');
readln(courant^.inf);
writeln('Voulez-vous ajouter un autre element ? o/n');
readln(r);
if (r='n') then
tete^.suiv := nil 
else
begin
repeat
new (courant^.suiv); 
writeln('donner un variable :');
readln(courant^.suiv^.inf);
writeln('Voulez-vous ajouter un autre element ? o/n');
readln(r);
if r = 'o' then
courant := courant^.suiv  
else 
courant^.suiv^.suiv := nil ;
until(r='n')
end; 
end;
procedure ajouter_queue ;
var r: ^liste ;
begin
if tete = nil then
writeln('la liste est vide !') else
r:=tete ;
while (r^.suiv<>nil) do
begin
r:=r^.suiv ;
end;
new(r^.suiv);
r:=r^.suiv ;
writeln('donner un valeur :');
readln(r^.inf) ;
end;
procedure ajouter ;
var q,a,b,e :^liste ;
      p,c,cc: integer ;
begin
if tete = nil then
writeln('la liste est vide !') else
begin
q:=tete ;
a:=q ;
e:=tete ;
c:=0 ;
new (b);
while (q <>nil ) do
begin
q := q^.suiv ;
c:=c+1 ;
end;
while (e^.suiv <> nil ) do
begin
e:=e^.suiv ;
end;
q:=tete ;
writeln('donner la possition d"ajoute :');
readln(p) ;
if p=1 then
begin 
ajoute_tete 
end 
else
if c=p then
begin
ajouter_queue 
end
else
begin
cc:=2 ;
q:=q^.suiv ;
while (q^.suiv <>nil ) do
if cc=p then 
begin
writeln('donner la valeur :');
readln(b^.inf);
b^.suiv:=q ;
a^.suiv := b ;
c:=c+1 ; 
q:=e ; 
end 
else 
begin
cc:=cc+1 ;
q := q^.suiv ;
a:=a^.suiv ;
end;
end;
end;
end;
procedure trie ;
var a,q:^liste ;
      w:integer ;
Begin
q:=tete ;
a:=q ;
a:=a^.suiv ;
while (q<>nil)do
begin
a:=q^.suiv ;
while(a<>nil) do
if (q^.inf > a^.inf) then
begin
w:=q^.inf ;
q^.inf := a^.inf ;
a^.inf := w 
end
else
begin
a:=a^.suiv ;
end ;
q:=q^.suiv ;
end;
end;
procedure ajoute_trie ;
var r,f,g,e : ^liste ;
begin
g:=tete ;
r:=g ;
e:=r ;
while (e^.suiv<>nil) do
begin
e:=e^.suiv ;
end;
new (f);
writeln('donner la valeur :');
readln(f^.inf);
if (f^.inf < tete^.inf ) then
ajoute_tete
else 
if (f^.inf > e^.inf ) then 
ajouter_queue
else 
begin
g:=g^.suiv ;
while (g <> nil) do 
if (g^.inf > f^.inf) then
begin
f^.suiv:=g ;
r^.suiv := f ; 
g:=nil ; 
end 
else 
begin
g := g^.suiv ;
r:=r^.suiv ;
end;
end;
end;
procedure supp ;
var b,d,f,e,q,a : ^liste ;
s,c,i : integer ;
begin
q:=tete ;
a:=q ;
d:=q ;
e:=tete ;
f:=e;
c:=0 ;
writeln('donner la valeur ce que vous voulez supprimmer :');
read(s) ;
while (f<>nil) do 
begin
if (f^.inf=s) then
c:=c+1 
else
f:=f^.suiv ;
end;
if (c>=1) then
begin
for i:=0 to c do
e:=e^.suiv ;
q:=q^.suiv ;
while (e^.suiv<>nil) do
begin
e:=e^.suiv ;
a:=a^.suiv ;
end;
if (tete^.inf = s) then 
begin
 tete:=tete^.suiv ;
 dispose(d) ;
end
else 
if  (s=e^.inf) then
begin
a^.suiv := nil ;
dispose(e);
end
else
while (q^.suiv <> nil) do 
if (q^.inf = s ) then 
begin 
b:=q;
q:=q^.suiv ;
d^.suiv := q ;
dispose(b) ;
end
else 
begin
q:=q^.suiv ;
d:=d^.suiv ;
end;
end
else
writeln('cette valeur n"exite pas !');
end;
BEGIN
repeat 
writeln('      ************************************************************************');
writeln('      *                                                                      *');
writeln('      *                              MENDJA WADIA                            *');
writeln('      *                                                                      *');
writeln('      *          0- Pour la creation                                         *');
writeln('      *          1- Pour afficher                                            *');
writeln('      *          2- Pour countee le nombre de elemnt                         *');
writeln('      *          3- Pour ajoute un element dans la tete                      *');
writeln('      *          4- Pour ajoute un element dans la queue                     *');
writeln('      *          5- Pour ajoute un element dans un possition K               *');
writeln('      *          6- Pour triee la liste order croissant                      *');
writeln('      *          7- Pour l"ajout d"un element dans un liste déjà trie        *');
writeln('      *          8- Pour supprimmer un element                               *');
writeln('      *          10- exite                                                   *');
writeln('      *                                                                      *');
writeln('      *                                                                      *');
writeln('      ************************************************************************');
writeln;
write  ('                       Votre choix : ');read(choix);
begin
if choix = 1 then
affichage
else 
if choix = 2 then
count
else if choix=3 then ajoute_tete 
else if choix = 0 then creation
else if choix = 4 then ajouter_queue
else if choix = 5 then ajouter
else if choix = 6 then trie
else if choix = 7 then ajoute_trie
else if choix = 8 then supp
else if choix = 10 then writeln('le program est sorté')
else writeln('choix est faux');
end;
until(choix=10)
end.

Copie le code

Scripted by : MENDJA WADIA

------------------------------------------

exercices sur les listes chainées en pascal les listes chainées en pascal les listes chainées en pascal frituur les listes chainées en pascal froger les listes chainées en pascal jeune les listes chainées en pascal keijzer les listes chainées en pascal koh lanta les listes chainées en pascal koksijde les listes chainées en pascal obispo les listes chainées en pascal pdf les listes chainées en pascal quignard les listes chainées en pascal québec les listes chainées en pascal unité les listes chainées en pascal verde les listes chainées en pascal vranckx les listes chainées en pascal wetteren les listes chainées en pascal wikipedia les listes chainées en pascal youtube les listes chainées en pascal zellik les listes chainées exercices corrigés en pascal

بقلم وديع منجاالوفي للمعلوميات

الوفي للمعلوميات: مدونة تضم عدد كبير من الدروس المكتوبة و الفيديوهات المصورة عن طريق حلقات متسلسلة نتطرق فيها إلى مختلف المواضيع التقنية و التعليمية بشكل عام القريبة من الشباب العربي ، .،