83 (158)

Rozdział 4. • Zagadnienia trudniejsze 119

Readln (Wypos);

Samochód.DodatkoweWyposazenieCI] Wypos; I 1+1; until (I>10) or (Wypos- ');

ClrScr;

with Samochód do begin

Writeln (Producent,    Marka, ', ', NumerRejestracyjny);

Writeln ('Numer nadwozia: ', NumerNadwozia,

', Numer silnika: ’, NumerSilnika,

', Przebieg: ', Przebieg); case Typ of

osobowy : Write ('Samochód osobowy'); ciężarowy : Write ('Samochód ciężarowy'); end;

case Kolor of

biały    :    Writeln    ('    koloru    białego');

czerwony    :    Writeln    (‘    koloru    czerwonego’);

zielony    :    Writeln    ('    koloru    zielonego');

niebieski :    Writeln    ('    koloru    niebieskiego');

srebrny    :    Writeln    ('    koloru    srebrnego');

end;

for I :■ 1 to 10 do

if DodatkoweWyposazenie [I] <> '' then

Writeln (' - ’, DodatkoweWyposazenie [I]);

end;

Readln end.

Program składa się z dwóch funkcjonalnych części: wczytania danych i wypisania wyniku. Warto zauważyć, że w pierwszej części do pól rekordu odwołujemy się, podając pełną nazwę (zmiennej i pola), w drugiej wykorzystujemy instrukcję with. Zwróć także uwagę, że aby sprawdzić, czy wpisano poprawną literę przy określaniu wartości zmiennej typu wyliczeniowego, posługujemy się zbiorami.

W I C Z E N I E

4.26

Sortowanie OuickSort

Napisz program, który wczyta imiona, nazwiska i wzrost piętnastoosobowej grupy osób (na przykład klasy) i wydrukuje osoby od najniższej do najwyższej.

Zaczniemy od wymyślenia struktury danych, w której będziemy pamiętać informacje. Bez wątpienia do pamiętania informacji o osobie (dwóch danych tekstowych i jednej liczbowej) najlepszy będzie typ rekordowy. A jak zapamiętać piętnastoosobową grupę osób? Dlaczego by nie skorzystać z tablicy? Przecież elementami tablicy mogą być zmienne dowolnego typu, także rekordowego. Jeżeli więc zadeklarujemy tablicę rekordów, w każdej jej komórce będziemy pamiętać dane o jednej osobie w postaci rekordu, który będzie miał odpowiednie pola z jej cechami. Struktura danych wygląda na nieco skomplikowaną, ale w rzeczywistości tak nie jest. I bardzo dobrze sprawdza się przy rozwiązaniu tego problemu.

W rzeczywistości pojedyncze zmienne rekordowe są w programach mało przydatne. Prawdziwą potęgę rekordów można docenić, dopiero gdy skorzysta się z bardziej złożonych struktur. Tablica rekordów jest jedną z najbardziej podstawowych. W kolejnych rozdziałach zapoznasz się także z plikami i ze strukturami wskaźnikowymi.