Question

Turbo pascal

Napisać program w którym użyto:pr0cedur,funkcj1,zmienn4 tablicowa i zmienn4 rekordowa.

Answer 1

Proste jak drut. Procedura jest, funkcja jest, tablica i rekord także. Może i rekord to nie zmienna, ale typ powinien zadowolić.

 

[code]

Program zadanie;

Uses crt;

Type Tosoba=record

imie,nazwisko:string[30];

wiek:byte;

End;

Ttablica=array [1..50] of Tosoba;

Var

tablica:Ttablica;

count:byte;

Procedure wprowadz_dane(var tablica:Ttablica; count:byte);

Var i:byte;

Begin

for i:=1 to count do

Begin

write('Podaj imie ',i,' osoby: ');

readln(tablica[i].imie);

write('Podaj nazwisko ',i,' osoby: ');

readln(tablica[i].nazwisko);

write('Podaj wiek ',i,' osoby: ');

readln(tablica[i].wiek);

End;

writeln('Dane zostaly pomyslnie wprowadzone!');

End;

Function wypisz(tablica:Ttablica; count:byte):string;

Var

zm_pom:string;

Begin

str(tablica[count].wiek,zm_pom);

zm_pom:=tablica[count].imie+' '+tablica[count].nazwisko+' '+zm_pom;

wypisz:=zm_pom;

End;

Begin

clrscr;

write('Podaj liczbe osob ktore chcesz wprowadzic do bazy: ');

readln(count);

wprowadz_dane(tablica,count);

delay(1500);

clrscr;

write('Dane ktorej osoby chcesz uzyskac?: ');

readln(count);

write('Dane ',count,' osoby to: ',wypisz(tablica,count));

readln;

End.