www.ispwsznysa.fora.pl

Mardok

Programowanie: Informatyka I

Lista9

Zadanie 1.
Napisz procedurę sortującą jednowymiarową tablicę 100 elementową wypełnioną losowymi liczbami typu real. Parametrem wywołania procedury ma być tablica.

Zadanie 2.
Zdefiniować rekord typu tosoba = record
imie: string[20];
nazwisko: string[20];
rokurodz: word;
end;

W programie głównym:
a) elementy imie, nazwisko rekordu należy wypełniać danymi wprowadzonymi z klawiatury.
b) element rokurodz ma być losowany z przedziału <1960,1985>.

Zadanie 3.
Zdefiniować rekord typu tosoba = record
naz: string[20];
rok, mies, dzien: word;
id: longint;
end;
Opracować procedury:
a) inicjującą rekord typu tosoba danymi wprowadzonymi z klawiatury;
b) wyprowadzającą rekord typu tosoba na ekran;

Przetestować opracowane procedury w programie głównym.

Zadanie 4.
Zdefiniować rekord typu tosoba = record
naz: string[20];
rok, mies, dzien: word;
id: longint;
end;

Opracować procedury:
a) inicjującą tablicę rekordów typu tosoba danymi wprowadzonymi z klawiatury;
parametrami procedury ma być tablica rekordów oraz ilość rekordów którą chcemy wprowadzić.
b) wyprowadzającą tablicę rekordów typu tosoba na ekran;
parametrami procedury ma być tablica rekordów oraz ilość rekordów którą chcemy wypisać na ekran.

Mardok

program Halik_L9Z1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tab = array[1..100] of real;

procedure sort(var t : tab);
var
i,j : byte;
temp : real;
begin
for i:=1 to 100 do
for j:=1 to 100 do
begin
if t[j] > t[j+1] then
begin
temp:=t[j];
t[j]:=t[j+1];
t[j+1]:=temp;
end;
end;
end;

var
i : integer;
t : tab;

begin
randomize;
for i:=1 to 100 do
begin
t[i]:=random(100) / 3;
write(t[i]:0:3,' ');
end;

sort(t);
writeln;
writeln;
for i:=1 to 100 do write(t[i]:0:3,' ');

readln;

end.

Mardok

program Halik_L9Z2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
TOsoba = record
imie : string[20];
nazwisko : string[20];
rokurodz : word;
end;

var
dat : TOsoba;
begin
randomize;
write('Podaj Imie : ');
readln(dat.imie);
write('Podaj Nazwisko : ');
readln(dat.nazwisko);
dat.rokurodz:=random(26)+1960;
readln;
end.

Mardok

program Halik_L9Z3;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
TOsoba = record
naz: string[20];
rok, mies, dzien: word;
id: longint;
end;

var
dat : TOsoba;

procedure PodajDane;
begin
write('Podaj Nazwa : ');
readln(dat.naz);
write('Podaj Rok : ');
readln(dat.rok);
write('Podaj Miesiac : ');
readln(dat.mies);
write('Podaj Dzien : ');
readln(dat.dzien);
write('Podaj ID : ');
readln(dat.id);
end;

procedure Show;
begin
writeln('Wprowadzone dane :');
writeln('Nazwa : ',dat.naz);
writeln('Data : ',dat.rok,'-',dat.mies,'-',dat.dzien);
writeln('ID : ',dat.id);
end;

begin
PodajDane;
writeln;
Show;
readln;
end.

Mardok

program Halik_L9Z4;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
TOsoba = record
naz: string[20];
rok, mies, dzien: word;
id: longint;
end;
dane = array[1..10] of TOsoba;

var
l : integer;
dat : dane;

procedure PodajDane(ile : integer; var tab : dane);
var
i : integer;
begin

for i:=1 to ile do
begin
writeln('Rekord nr [',i,'] :');
write('Podaj Nazwa : ');
readln(tab[i].naz);
write('Podaj Rok : ');
readln(tab[i].rok);
write('Podaj Miesiac : ');
readln(tab[i].mies);
write('Podaj Dzien : ');
readln(tab[i].dzien);
write('Podaj ID : ');
readln(tab[i].id);
writeln;
end;

end;

procedure Show(ile : integer; tab : dane);
var
i : integer;
begin

for i:=1 to ile do
begin
writeln('Rekord nr [',i,'] :');
writeln('Nazwa : ',tab[i].naz);
writeln('Data : ',tab[i].rok,'-',tab[i].mies,'-',tab[i].dzien);
writeln('ID : ',tab[i].id);
writeln;
end;

end;

begin
write('Podaj ilosc rekordow : ');
readln(l);
writeln;
PodajDane(l,dat);
Show(l,dat);
readln;
end.