Spis treœci - Patrz

odkogo: in Integer) doif czas > t then t := czasend if;-- skorygowanie czasuif (czas > mójt) or ((czas = mójt) and(odkogo > POMOCNIK'index))then— niższy priorytetwstrzymany(odkogo) := True;else— odpowiedź pozytywnaSIEĆ.ODPOWIEDŹ(odkogo);end if;end ODBIERZ_ZADANIE;oraccept ODBIERZ_ODPOWIEDZ;exit when licz = N - 2;— już wszystkie odpowiedzilicz := licz + 1;end select;end loop;end CHCĘ;— nowe żądania zaczekają w— kolejce do ODBIERZ_ZADANIEaccept ZWALNIAM;for j in 1..N loopif wstrzymany(j) then -- odpowiedzi do wszystkichSIEĆ.ODPOWIEDŹ(j); — wstrzymanychwstrzymany(j) := False;end if;end loop;oraccept ODBIERZ_ZADANIE(czas: in Integer;odkogo: in Integer) doif czas > t then t := czasend if;—. skorygowanie czasuSIEĆ.ODPOWIEDŹ(odkogo);— odpowiedź pozytywnaend ODBIERZ_ZADANIE;end select;end loop;end POMOCNIK;6.4.7 Centrala telefonicznaOto zapisane w Adzie rozwiązanie z p. 5.4.8.N: constant Integer := ?; — liczba nadawcówM: constant Integer := ?; — liczba odbiorcówtask NADAWCA(1..N) isend;task body NADAWCA ism,k: Integer;beginlooplosuj(m);loopCENTRALA.DZWONIE(m,k);exit when k /= 0;end loop;-- wybór rozmówcy— wykręcanie numeru178