67 lines
1.5 KiB
Ada
Executable file
67 lines
1.5 KiB
Ada
Executable file
-- Implantation du module Piles.
|
|
|
|
with Ada.Text_IO; use Ada.Text_IO;
|
|
--! Ce module est nécessaire parce qu'on a ajouté le SP Afficher.
|
|
|
|
package body Piles is
|
|
|
|
|
|
procedure Initialiser (Pile : out T_Pile) is
|
|
begin
|
|
Pile.Taille := 0;
|
|
end Initialiser;
|
|
|
|
|
|
function Est_Vide (Pile : in T_Pile) return Boolean is
|
|
begin
|
|
return Pile.Taille = 0;
|
|
end Est_Vide;
|
|
|
|
|
|
function Est_Pleine (Pile : in T_Pile) return Boolean is
|
|
begin
|
|
return Pile.Taille >= Capacite;
|
|
end Est_Pleine;
|
|
|
|
|
|
function Sommet (Pile : in T_Pile) return T_Element is
|
|
begin
|
|
return Pile.Elements (Pile.Taille);
|
|
end Sommet;
|
|
|
|
|
|
procedure Empiler (Pile : in out T_Pile; Element : in T_Element) is
|
|
begin
|
|
Pile.Taille := Pile.Taille + 1;
|
|
Pile.Elements (Pile.Taille) := Element;
|
|
end Empiler;
|
|
|
|
procedure Depiler (Pile : in out T_Pile) is
|
|
begin
|
|
Pile.Taille := Pile.Taille - 1;
|
|
end Depiler;
|
|
|
|
function Taille (Pile: in T_Pile) return Natural is
|
|
begin
|
|
return Pile.Taille;
|
|
end Taille;
|
|
|
|
procedure Afficher (Pile : in T_Pile) is
|
|
begin
|
|
Put ('[');
|
|
if not Est_Vide (Pile) then
|
|
Put (' ');
|
|
Afficher_Element (Pile.Elements (1));
|
|
for I in 2..Pile.Taille loop
|
|
Put (", ");
|
|
Afficher_Element (Pile.Elements (I));
|
|
end loop;
|
|
else
|
|
Null;
|
|
end if;
|
|
Put (" ]");
|
|
end Afficher;
|
|
|
|
|
|
end Piles;
|