Spis treœci - Patrz

ead(b);write(b){przesłanie elementów wzorca}end;if i>l then writeln;readln(a);{wczytanie elementu wzorca}n := 1;{licznik znaków}while not eof do beginwhile eoln do beginreadln;readln(j);writeln;writeln(j:5)end;read(b);{wczytywanie tekstu}if i 0 1 then write(b);if b = a then beginwriteln;writeln(n-i+i:5)end;n := n + 1endend.program Z;const N = 5;var m,j: integer; licz, widz: array[O..N-l] of integer;beginfor j := 0 to N-1 do widz[j] := -N;while not eof do beginreadln;readln(m);j := m mod N;if m widz[j] then beginwidz[j] := m;licz[j] := 1end else beginlicz[j] := licz[j] + 1;if licz[j] = N then write(m:5)end;end;end.Ponieważ we wzorcu mamy pięć znaków, w celu poprawnego uruchomienia programównależy wydać polecenie:U|P|P|P|P|P|ZJeśli program U przepisano dokładnie, w wyniku powinniśmy otrzymać liczby50 114 240 27311.4.6 Problem ośmiu hetmanówW rozwiązaniu za pomocą mechanizmu potoków nie ma problemu ze stwierdzeniem, kiedyzakończyły się obliczenia. Proces inicjujący INIT redukujesię tu do jednej instrukcji wypisania ukladu reprezentującego pustą szachownicę. Algorytmprocesu wykonawcy W jest podobny do algorytmu z p. 7.4.8.program INIT;begin283