80 (171)

116 Turbo Pascal • Ćwiczenia praktyczne

ĆWICZENIE

4.24

Wykorzystanie typu zbiorowego

Zdefiniuj liczny typ wyliczeniowy określający kolory. Wczytaj kolor do zmiennej odpowiedniego typu, sprawdzając, czy podany znak jest poprawny, i jak nie — prosząc o ponowne podanie wartości. Wykorzystaj do sprawdzenia zbiór.

program cw4_24;

{ Program pokazujący możliwość sprawdzenia poprawności }

{ wpisanego znaku na podstawie jego przynależności do }

{ zbioru.    }

{ Katalog r4_05 : 4_24.pas    }

uses

Crt;

type

TKolory - (biały, szary, zolty, czerwony, pomarańczowy, zielony, niebieski, fioletowy, rozowy, brązowy, czarny);

var

Kolor : TKolory;

Znak : Char;

begin

ClrScr;

repeat

Writeln ('Podaj litere: ');

Writeln    ('    B    -    biały,    S    -    szary,    X    -    zolty,');

Writeln    ('    C    -    czerwony,    P    -    pomarańczowy,    Z    -    zielony,');

Writeln    ('    N    -    niebieski,    F    -    fioletowy,    R    -    rozowy,');

Writeln    ('    A    -    brązowy,    Y    -    czarny');

Readln (Znak);

until Upcase(Znak) in (['B',’S','X','C','P','Z','N','F','R','A','Y']);

Writeln ('Podano poprawny znak: ', Znak);

Readln; end.

Pomyśl, jak skomplikowany byłby warunek zakończenia pętli bez zastosowania zbiorów. Spróbuj go zapisać. Który sposób jest bardziej czytelny?

4.6. Typ rekordowy

Często się zdarza, że chcielibyśmy zapamiętać różne cechy jakiegoś obiektu. Zwykle se one różnych typów: część liczbowego, część tekstowego, część logicznego, a część tablicowego. Z pomocą przychodzą rekordy. Definicja typu rekordowego ma następującą postać:

zm - record

polel : typ_polal; pole2 : typ_pola2;

pole_n : typ_pola_n; end;