Pomme v1

----------------------------------------------------------------
--  *  pomme.adb
--  *  Role : .......... ... compter des pommes...
----------------------------------------------------------------
with entrees_sorties; use entrees_sorties;

procedure pommes is
  nbPanier : Integer;
  nbSac : Integer;
  nbAchat : Integer;
  choixLettre : Character;
  continuer : Boolean;
  panierPlein : Boolean;
  sacVide : Boolean;
begin

  nbPanier := 0;
  nbSac := 0;
  choixLettre := 'o';
  continuer := choixLettre = 'o';
  panierPlein := nbPanier >= 20;
  sacVide := TRUE;

  while(not(panierPlein) AND continuer) loop
    put("Bienvenue ! Combien voulez-vous m'acheter de pommes aujourd'hui ? ");
    get(nbAchat);
    new_line;

    put("Voulez-vous continuer vos achats ? (o/n) ");
    get(choixLettre);
    new_line;

    continuer := choixLettre = 'o';

    nbPanier := nbPanier + nbAchat;
    panierPlein := nbPanier >= 20;

    if(panierPlein) then
      nbSac := nbPanier - 20;
      sacVide := nbSac = 0;
      nbPanier := 20;
    end if;

  end loop;

  if(panierPlein) then
    put("Le panier est plein (20 pommes)");
    new_line;
    if(not(sacVide)) then
      put("Nombre de pommes dans le sac = ");
      put(nbSac, 0);
    end if;
  else
    put("Nombre de pommes dans le panier = ");
    put(nbPanier, 0);
  end if;


end pommes;