daily pastebin goal
62%
SHARE
TWEET

magazyn ads

a guest Oct 18th, 2017 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. with Piwa;
  2.  
  3. package Magazyn is
  4.    -- Wyjmujemy piwo z magazynu
  5.    function pobierz return Piwa.Piwo;
  6.    -- Umieszczamy piwo w magazynie
  7.    procedure dodaj(piwko : in Piwa.Piwo);
  8.    -- Sprawdzamy ile sztuk piwa aktualnie zajduje sie w magazynie
  9.    function sprawdzIloscSztuk return integer;
  10.  
  11.    -- Maksymalna ilosc sztuk piwa, ktora moze pomiescic magazyn
  12.    pojemnosc : constant integer := 20;
  13.  
  14.    wyjatekMagazynu : exception;
  15.  
  16. private
  17.    iloscSztuk : integer := 0;
  18.  
  19.    -- "Pojemnik" na piwa
  20.    kontener : array (1 .. pojemnosc) of Piwa.Piwo;
  21. end Magazyn;
RAW Paste Data
Top