TP-programmation-imperative/tp07/piles.adb

67 lines
1.5 KiB
Ada
Raw Permalink Normal View History

2023-06-10 19:03:54 +00:00
-- 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;