Spis treœci - Patrz

OUTPUT(j, p)endend;process GRUPA1;var p: porcja;beginwhile true do beginwlasne_sprawy(p);OUTPUT('A', 1, p);INPUT(1, p:porcja)endend;process GRUPA2;type zasób = 'A'..'B';var p: porcja;jaki: zasób;beginwhile true do beginwlasne_sprawy(p);OUTPUT(jaki:zasob, 2, p);INPUT(2, p:porcja)endend;Jeśli procesów obu grup jest więcej niż po jednym, każdy z nich musi dodatkowoprzekazywać swój jednoznaczny identyfikator, aby na jego podstawie mógł następnie pobraćz przestrzeni zwróconą mu przetworzoną porcję.7.4.2 Obliczanie histogramuW następującym rozwiązaniu mamy pięć rodzajów krotek: o sygnaturze (string,integer), na podstawie której proces SEG określa swój numer, o sygnaturze (string, integer,real) z wartością progową o podanym numerze, o sygnaturze (integer, real) z wartościamifunkcji skierowanymi do odpowiedniego procesii, o sygnaturze (integer) z sygnałami doprocesu SEG od wskazanego procesu oraz krotka z ostatecznym wynikiem umieszczonym wtablicy typu tab. Przyjmujemy, że sygnałem końca danych dla procesów SEG będzie wartośćwiększa niż wartość największego progu, a sygnałem końca danych dla procesu STAT będzieliczba większa niż n-czba wartości progowych. Po otrzymaniu sygnału końca danych procesma pewność, że wszystkie przeznaczone dla niego krotki znajdują się już w przestrzeni. Możeje więc pobierać do skutku operacją TRY_INPUT.const N = 6;{liczba wartości progowych}process SEGO;type tab = array[l..N] of integer;var i,j: integer;h: tab;beginOUTPUT('numer', 1);for i := 1 to N do {wysłanie progów}OUTPUT('prog', i, (i-3)*0.4);for i := -10 to 10 do {wysłanie wartości}OUTPUT(1, sin(i));OUTPUT(1, 1.3);{sygnal końca}INPUT(h:tab){odebranie wyniku}end;195