| roy |
 Wysłany: Wto 16:13, 11 Mar 2008 Temat postu: lista 2 |
|
zadanie 1
| Kod: |
program zadanie_1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=5;
type
intwsk=^integer;
realwsk=^real;
b=^string;
tab=array [1..n] of integer;
ptab=^tab;
ptosoba=^tosoba;
tosoba=record
nazwisko:string[20];
r,m,d:integer;
id:integer;
end;
var
aa:intwsk;
bb:b;
ii:realwsk;
tabltab;
toosobatosoba;
x:byte;
begin
randomize;
New(aa);
aa^:=random(100)+1;
New(ii);
ii^:=random(15)/(random+1);
New(tabl);
for x:=1 to n do
tabl^[x]:=random(100);
New(toosoba);
with toosoba^ do
begin
write('Nazwisko: ');
readln(nazwisko);
write('Podaj rok: ');
readln(r);
write('Podaj miesiac: ');
readln(m);
write('Podaj dzien: ');
readln(d);
write('Id: ');
readln(id);
end;
New(bb);
bb^:=toosoba^.nazwisko;
writeln(' Wskazniki zawieraja adresy elementow: ');
writeln(' aa:',aa^,' ii:',ii^:0:2,' bb:',bb^);
write(' Tablica zawiera:');
for x:=1 to n do write(tabl^[x],', ');
writeln;
writeln(' Rekord zawiera:', toosoba^.nazwisko,', ',toosoba^.r,'.',toosoba^.m,'.',toosoba^.d,' ',toosoba^.id);
readln;
dispose(aa);
dispose(bb);
dispose(ii);
dispose(tabl);
dispose(toosoba);
writeln('>>> Pamiec wyczyszczono <<<');
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|
|
