daily pastebin goal
72%
SHARE
TWEET

Untitled

a guest Dec 7th, 2017 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program lab6_1a;
  2.  
  3. type
  4.   dane_os = record
  5.     imie:string[80];
  6.     nazwisko:string[80];
  7.   end;
  8.   wsk_dane = ^dane_os;
  9.  
  10. const
  11.   MaxN = 100;
  12.  
  13. var
  14.   tab:array[0..MaxN-1] of wsk_dane;
  15.   i,k:integer;
  16.  
  17. begin
  18.   while true do
  19.       begin
  20.         writeln('Podaj indeks rekordu: ');
  21.         read(i);
  22.         if not (i in [0..MaxN-1]) then
  23.            break;
  24.         if tab[i]<>nil then
  25.            writeln('Tab[',i,'] jest zajete')
  26.         else
  27.         begin
  28.              tab[i]:=new(wsk_dane);
  29.  
  30.              write('Podaj IMIE do rekordu ',i,': ');
  31.              readln(tab[i]^.imie);
  32.  
  33.              write('Podaj NAZWISKO do rekordu ',i,': ');
  34.              readln(tab[i]^.nazwisko);
  35.         end;
  36.       end;
  37.  
  38.   for k:=0 to MaxN-1 do
  39.         if tab[k]<>nil then
  40.             begin
  41.                  writeln('imie: ',tab[k]^.imie,' nazwisko: ',tab[k]^.nazwisko);
  42.                  dispose(tab[k]);
  43.             end;
  44.  
  45.   readln;
  46. end.
RAW Paste Data
Top