Spis treœci - Patrz

11.4.3 Obliczanie wartości wielomianuZastosowano tu sposób przekazywania współczynników z wersji 1 i sposób przekazywanieargumentów z wersji 2 zadania 5.3.12. Jako wynik uzyskamy ciąg par (argument, wartość).program PO;var i: integer;beginwriteln(l:4,-2:4,3:4);{współczynniki}{argumenty}for i := -10 to 10 dowrite(i:4,0:4);writelnend.program P;var a,b,y: integer; mam, iksy: boolean;beginmam : = f als e;iksy := false;while not eof do beginif eoln then beginreadln;writeln;iksy := not iksy;mam := mam and iksyend else beginread(b);if iksy then beginendendendend.{zmiana strumienia}{to byl argument}read(y); write(b:4); {wczytujemy sumę częściową}if mam then write(y*b+a:4) else write(y:4)end else {not iksy}if mam then write(b:4) else beginmam := true;a := b{zapamiętujemy współczynnik}Obliczenia wykonujemy dla wielomianu drugiego stopnia, więc aby poprawnie uruchomić teprogramy, należy napisać polecenie:PO|P|P|PMożna także uruchomić większą liczbę programów P, ale będą one jedynie przekazywaćwyniki.11.4.4 Sito EratostenesaProgramy SITO muszą przekazywać na wyjście zarówno swoją własną liczbę pierwszą, jak iprzesiewane liczby. W celu odróżnienia ich od siebie, liczby pierwsze rozpoznane przez sitaodzielimy od reszty liczb znakiem końca linii.program SITOO;var i: integer;beginwriteln(2:3);for i := 1 to 80 do write(2*i+l:4)end.281