Spis treœci - Patrz

program SITO;var i,k: integer;beginwhile not eoln do beginread(i);write(i:4)end;readln;if not eof then beginread(i);write(i:4)end;writeln;while not eof do begin {przesiewanie}read(k);if k mod i 0 then write(k:4)endend.{przekazanie liczb pierwszych}{od poprzednich sit}{pobranie swojej liczby pierwszej}SITOO generuje liczby nieparzyste z przedziału [3,161], więc zgodnie z rozważaniami z p.5.4.14 minimalna liczba sit wystarczająca do odsiania liczb niepierwszych wynosi 4. Poprawnepolecenie uruchamiające powyższe programy wygląda następująco:SITOO|SITO|SITO|SITO|SITO11.4.5 Porównywanie ze wzorcemWyszukuje się tu wszystkie wystąpienia słowa begin w tekście programu U, przy czym spacjena początku linii są także liczone. Liczby, które w rozwiązaniu z p. 5.4.17 byly przesyłanebezpośrednio do procesu Z, tutaj są przesyłane między programami P, ale w celu odróżnieniaich od analizowanego tekstu występują one między dwoma znakami końca linii. Treśćprogramu Z dokładnie odpowiada treści procesu Z z p. 5.4.17.program U;const N = 5;var c:char;plik,z:text;beginwriteln(N:4); {wysłanie długości wzorca}writeln('begin'); {wysłanie wzorca}assign(plik,'u.pas');reset(plik); {otworzenie pliku z tekstem}while not eof(plik) do beginwhile not eoln(plik) do beginread(plik,c);write(c) {przesłanie tekstu}end;{z pominięciem}readln(plik)end;close(plik)end.{znaków końca linii}program P;var a,b: char; i,j,n: integer;beginreadln(i);{wczytanie numeru procesu}if i>l then writeln(i-l);for j := 1 to i-1 do begin282