78 (168)

114 Turbo Pascal • Ćwiczenia praktyczne

Utworzymy dwa zbiory oparte na typie znakowym. W pierwszym zawarte będą wszystkie litery, w drugim — samogłoski. Dla każdego wciśniętego znaku będziemy sprawdzali, czy należy do tych zbiorów i wypisywali odpowiednią informację. Zakończenie działania nastąpi po wciśnięciu klawisza Enter (jako główną pętlę programu wykorzystamy repeat... until). program cw4_22;

{ Program wczytujący kolejne znaki i wypisujący, czy sa }

{ literami, oraz samogłoskami czy spółgłoskami.    }

{ Katalog r4_05 : 4_22.pas    }

uses

Crt;

type

TLitery - set of Char; var

Litery, Samogłoski : TLitery;

Znak : Char;

begin

ClrScr;

Litery ['a'..'z',    A’..'Z'j;

Samogłoski :— C'a', 'e', 'i', 'o', 'u', 'y',

•A',    E', T, '0', 'U', • Y^- ;

repeat

Znak ReadKey; if (Znak <> #13) then if (Znak in Litery) then begin

Write ('Znak ', Znak, ' jest litera '); if (Znak in Samogłoski) then Writeln ('(samogłoska).') else

Writeln ('(spółgłoska).')

end

else

Writeln ('Znak ', Znak, ' nie jest litera.'); until Znak - #13; end.

Sprawdzenie, czy znak ma kod #13, to sprawdzenie, czy wciśniętym klawiszem był Enter.

Niestety nie da się w automatyczny sposób policzyć elementów zbioru. Można jednak spróbować samemu napisać taką funkcję.

ĆWICZENIE

4.23

Obliczenie liczności zbioru

Napisz funkcję, która będzie podawała liczbę elementów zbioru znaków. Przetestuj ją w programie.

Trzeba będzie zastosować pewną sztuczkę, skoro nie ma metody bezpośredniej. Wiemy, że każdy zbiór jest podzbiorem jakiegoś typu porządkowego. Jeżeli więc przejrzymy wszystkie wartości, jakie może przyjmować zmienna tego typu, i sprawdzimy, czy należą do zbioru, będziemy w stanie przeliczyć elementy zbioru.