==== Programoz�s Z�rthelyi dolgozat -  1993. janu�r 14. - Nz930114.txt ====
     Vit. A. Kat.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

1. feladat                                          5*1 pont

>>> V-DEF.pas <<<

 a)
   new(m1);  m1^.lanc:=nil;  m1^.kulcs:=5;
   for e1:=1 to 5 do
     begin
       m2:=m1;
       new(m3);  m3^:=m2^;  m2^.kulcs:=e1;  m2^.lanc:=m3;
     end;
   m3^.lanc:=m1^.lanc;
   for e1:=1 to 6 do
     begin
       write(m1^.kulcs:3);  m1:=m1^.lanc;
     end;

   writeln;
-------------------------------------------------------

-------------------------------------------------------
 b)
   h1:=[ord(alberlet)..pred(ord(kastely))];
   h2:=[11..30];   h3:=h2+h1;
   for e1:=1 to 11 do
     if e1 in h3 then
       if e1 in h1 then  write('a')
                   else  write('b');
   writeln;
-------------------------------------------------------
 c)
   e1:=22;  e2:=3;
   while not f(e1,e2) do s(e1,e2);
   writeln;
-------------------------------------------------------
 d)
   e1:=3;  e2:=0;  b1:=e1<=e2;  t2[1,1]:=b1;
   t2[1,2]:=t2[1,1] or (e1 mod 2=1);
   t2[2,1]:=t2[1,1] and t2[1,2];
   t2[2,2]:=not t2[2,1] or t2[1,2];
   for e1:=2 downto 1 do
     for e2:=1 to 2 do  write(t2[e1,e2]:8);
   writeln;
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

2. feladat                                          

  TYPE PONT    = RECORD X, Y :INTEGER END;
       SZAKASZ = RECORD ELEJE, VEGE :PONT END;
       PONTOK  = ARRAY [1..4] OF PONT;

  Fenti deklar�ci� felhaszn�l�s�val k�sz�tsen PASCAL f�ggv�nyt,
  amely egy PONTOK t�pus� adatr�l eld�nti, hogy a n�gy pont
  k�z�l lehet-e kett�t-kett�t �gy �sszek�tni, hogy a keletkezett
  szakaszok p�rhuzamosak legyenek. Ez a logikai �rt�k legyen
  a f�ggv�ny�rt�k!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

3. feladat                                          

  A 2. feladatban kapott deklar�ci� felhaszn�l�s�val k�sz�tsen
  PASCAL elj�r�st, amely egy PONTOK t�pus� adatot vesz �t, �s
  egy SZAKASZ t�pus� adatban visszaadja a pontok k�z�tt h�zhat�
  leghosszabb szakasz v�gpontjait.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

4. feladat                                          

Egy l�git�rsas�g sz�m�t�g�pen t�rolja az utaslist�kat. Az �ssze-
s�tett �llom�ny (UTAZAS.DAT) minden utas minden �tj�r�l egy-egy
bejegyz�st tartalmaz. Egy bejegyz�s szerkezete a k�vetkez�:

    - J�rat sz�ma    -   8 karakter
    - D�tum          -   6 karakter
    - Utas neve      -  32 karakter
    - L�gi km        -  eg�sz sz�m
    - Jelleg         -  Szolg�lati / Egy�ni

K�sz�tsen PASCAL programot, amely kikeresi, �s a TORZS.DAT nev�
sz�veges �llom�nyba ki�rja a mag�n�ton legt�bbet rep�lt k�t utas
nev�t, valamint legut�bbi �tjuk d�tum�t.
Haszn�lhatja az al�bbi el�re deklar�lt elj�r�st:

PROCEDURE READ (VAR F :filet�pus;  VAR A :adatt�pus);
  BEGIN  A:=F^;  GET(F);  END;
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
... stb.