Kalavan |
|
|
|
Dołączył: 20 Maj 2006 |
Posty: 38 |
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Skąd: Wrocław |
|
|
|
|
|
|
Zad 4.
Dana jest wypełniona tablica T skłądająca się z 30 rekordów:Dziecko. Każdy rekord zawiera następujące informacje: imię,nzawisko,rok urodzenia,wzrost,waga. Napisz procedurę która zwróci do programu imię i nazwisko dziecka którego wzrost jest najwiekszy. T - parametr procedury
Kod: |
program p4;
type typ_data=record
dzien, miesiac, rok:integer; {bo tak :P}
end;
typ_dziecko=record {nazwalem to typ_dziecko, mimo ze w zadaniu chciano dziecko}
{coz, konwencja nazewnictwa :)}
imie,nazwisko:string;
rok_ur:typ_data;
wzrost,waga:real;
end;
typ_tab=array[1..30] of typ_dziecko;
procedure topola(tab:typ_array, var imie:string, var nazwisko:string); {przepraszam za nazwe, nie moglem nic wymyslic}
var i:integer; {bedzie potrzebny licznik}
max:integer; {tutaj sprytnie zapamietamy numer najwyzszego dziecka}
begin
max:=1; {na poczatku zakladamy, ze najwyzsze jest pierwsze, i tak to potem sprawdzimy}
for i:=1 to 30 do
begin
if(tab[i].wzrost>tab[max].wzrost) then
max:=i; {jesli znajdziemy wyzsze dziecko niz mielismy zapamietane, to tu}
{zapamietujemy nowo znalezionego olbrzyma}
end;
imie:=tab[max].imie; {procedura zmienia zmienne do niej podstawione!}
nazwisko:=tab[max].nazwisko;
end;
begin
end.
|
|
|