Programoz s P˘t + JavĄt˘z rthelyi     VILL.1.D  1992.12.10.  PZ921210.txt

############################################################################

FIGYELEM!
Minden feladatot kl”n A4-es lapra Ąrjon, a lapoknak csak egyik oldal t
haszn lhatja.
A megold s elj r sai ‚s fggv‚nyei nem haszn lhatnak glob lis v ltoz˘t.


############################################################################
1. feladat                                               10pont

Mit nyomtat ki a k”vetkez“ PASCAL program? 
Jel”lje a sz˘k”z”ket ‚s soremel‚st is! 

program mi;
const   n=2;
type  halmaz  =set of 1..30;
      mutato  =^lancrec;
      lancrec =record
                 kulcs :1..40;
                 lanc  :mutato;
               end;
      lakas =(alberlet,tarsberlet,foberlet,orok,kastely);

var  e1,e2,e3 :integer;
     m1,m2,m3 :mutato;
     lak1,lak2 :lakas;
     h1,h2,h3 :halmaz;

begin
   m1:=nil;   lak2:=kastely;
   for lak1:=alberlet to pred(lak2) do  begin
     new(m2);
     with m2^ do   begin
       lanc:=m1;  kulcs:=ord(lak1);
     end;
     m1:=m2;
   end;
   h1:=[];
   while m1<>nil do  begin
     h1:=h1+[m1^.kulcs];
     m1:=m1^.lanc;
   end;
   for e1:=1 to 30 do
     if e1 in h1 then writeln(e1);
end.


###########################################################################
2. feladat                                                  10 pont


type  coord = 0..100;
      pont  = record  x,y,z :coord;  end;
      ter3d = array [coord,coord,coord] of pont;

azaz a ter3d tĄpusŁ adat egy 100 ‚lhosszŁs gŁ kocka r cspontjaiban
egy-egy m sik r cspont koordin t it t rolja.

K‚szĄtsen Pascal elj r st, amely egy param‚terk‚nt  tvett
ter3d tĄpusŁ v ltoz˘b˘l kiv lasztja ‚s visszaadja azon pont
indexeit, amely az ”nmag hoz legk”zelebbi pontra mutat.


############################################################################
3. feladat                                            20 pont


Adottak a k”vetkez“ definĄci˘k:

type  pt = ^r;
      r  = record
             nev :packed array [1..30] of char;
             apja, anyja :pt;
             jel :boolean;
           end;

Egyetlen ilyen elemekb“l  ll˘ adatszerkezetben t roljuk tobb ember
csal df j t, valamilyen m‚lys‚gig. Akinek valamelyik szl“j‚t nem
t roljuk, ott a megfelel“ pointer ‚rt‚ke nil.
Tudjuk, hogy senki sem szerepel saj t “sei kozott.

K‚szĄtsen elj r st, amely kiĄrja k‚t ember k”z”s “seinek neveit!
Az elj r s feje:
                   procedure Osok (p1,p2 :pt);

A megold shoz szabadon megv ltoztathatja a "jel" mez“ ‚rt‚k‚t,
amely kezdetben meghat rozatlan.


############################################################################
4. feladat                                     10 pont

Adott k‚t file, melyek a szem‚lyi sz mok n”vekv“ sorrendj‚ben rendezettek
‚s elemeinek szerkezete azonos:

   n‚v            : 30 karakter
   szem‚lyi sz m  : 11 karakter
   gyereke sz ma  : eg‚sz

Defini ljon megfelel“ adattĄpust egy ilyen elemhez!
K‚szĄtsen programot, amely a k‚t file tartalm t egyesĄti Łgy, hogy
mindenkinek az adatai csak egyszer szerepeljenek az eredm‚ny-file-ban,
‚s kiĄrja a szabv nyos kimenetre azok minden adat t, akiknek a szem‚lyi
sz ma mindk‚t file-ban el“fordult, de a neve vagy a gyerekeinek a sz ma
elt‚rt a k‚t file-ban.
A file-okat csak egyszer olvashatja v‚gig!