84 (153)

120 Turbo Pascal • Ćwiczenia praktyczne

program cw4_26;

{ Program wczytujący do tablicy z rekordami imiona }

{ nazwiska i wzrost uczniów i drukujący informacje }

{ według rosnącego wzrostu.    }

{ Katalog r4_06 : 4_26.pas    }

uses

Crt;

const

LiczbaUczniow - 15; type

TOsoba - record

Imię: String [20];

Nazwisko: String [20];

Wzrost : Byte; end;

TKlasa - array [1.. LiczbaUczniow] of TOsoba; var

Klasa : TKlasa;

I : Byte;

procedurę QuickSort (var K : TKlasa; Pocz, Kon : Integer);

{ Procedura sortuje tablice K według pola K[I].Wzrost }

{ metoda QuickSort.    }

var

Element, I : Integer;

Pom : TOsoba; begin

if (Pocz < Kon) then begin

Element :- Pocz;

for I Pocz+1 to Kon do

if (K[I].Wzrost<K[Pocz].Wzrost) then begin

Element :- Element + 1;

Pom :« K[Element]; K[Element] :- K[I]; K[I] :- Pom; end;

Pom :- K[Pocz]; K[Pocz] :- K[Element]; K[Element] :- Pom;

OuickSort (K, Pocz, Element-1);

OuickSort (K, Element+1, Kon); end;

end; {------------------------------------- OuickSort -}

begin

ClrScr;

Randomize;

for I 1 to LiczbaUczniow do with Klasa[I] do begin

Write ('Podaj imię ucznia (', I, '): '); Readln (Imię);

Write ('Podaj nazwisko ucznia (', I, '): '); Readln (Nazwisko); Write ('Podaj wzrost ucznia w cm (', I, '): '); Readln (Wzrost); Writeln end;

OuickSort (Klasa, 1, LiczbaUczniow);

for I :- 1 to LiczbaUczniow do with Klasa[I] do

Writeln (1:3, '. ', Inie:21, Nazwisko:21, Wzrost:4, ' cm'); Readln; end.