daily pastebin goal
56%
SHARE
TWEET

Untitled

a guest Oct 18th, 2017 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. accept Wydaj(Zestaw: in Typ_Zestawow; Numer: out Integer) do
  2.         if Mozna_Wydac(Zestaw) then
  3.            Put_Line("Wydano zestaw " & Nazwa_Zestawu(Zestaw) & " nr " &
  4.               Integer'Image(Numer_Zestawu(Zestaw)));
  5.            for W in Typ_Wyrobow loop
  6.           Magazyn(W) := Magazyn(W) - Sklad_Zestawu(Zestaw, W);
  7.           W_Magazynie := W_Magazynie - Sklad_Zestawu(Zestaw, W);
  8.            end loop;
  9.            Numer := Numer_Zestawu(Zestaw);
  10.            Numer_Zestawu(Zestaw) := Numer_Zestawu(Zestaw) + 1;
  11.         else
  12.            Put_Line("Brak części dla zestawu " & Nazwa_Zestawu(Zestaw));
  13.            Numer := 0;
  14.         end if;
  15.      end Wydaj;
RAW Paste Data
Top