= = = = = = = = = programoz s alpjai = = = = = = = = =
                              vizsga
                          1992. janu r 15.

      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      1. feladat                                          5*0.2 pont


      meg kell  llapĄtani, hogy az al bbi programr‚szek hat s ra
      mi fog kiĄr˘dni. jelezze a sz˘k”z”ket, ‚s az is fontos, hogy
      mi kerl Łj sorba.
      a r‚szletek egy olyan programban helyezkednek el, amelynek a
      deklar ci˘s r‚sze a k”vetkez“:

      < v-def.pas >

        a)
            h1:=[1..6,9,12..15];   h2:=[10..13,20];
            h1:=h1*h2;
            for e1:=1 to 30 do
              if e1 in h1 then writeln(e1:5);
            -----------------------------------------------------
        b)
            l1:=tarsberlet;   v1:=3.2;   e1:=6;
            t2[1,1]:=round(v1)<>trunc(v1);
            t2[1,2]:=ord(l1)=1;
            t2[2,1]:=not t2[1,1] and t2[1,2];
            t2[2,2]:=not odd(e1) or t2[1,2];
            for e1:=2 downto 1 do
              for e2:=1 to 2 do
                write(t2[e1,e2]:6); writeln;
            -----------------------------------------------------
        c)
            e1:=6;   e2:=5;
            s(e1,e2);
            if not f(e1,e2) then writeln(e1:4) else writeln(e2:4);
            -----------------------------------------------------
        d)
            new(m1); m1^.kulcs:=5; new(m2); m2^.kulcs:=7;
            m1^.lanc:=m2; m2^.lanc:=m1; e1:=0;
            while e1<13 do
              begin
                e1:=e1+m1^.kulcs;
                m1:=m1^.lanc;
              end;
            writeln(e1:5);
            -----------------------------------------------------
        e)
            e3:=0;
            for l1:=alberlet to kastely do
              begin
                e2:=0;
                repeat e2:=e2+2;
                until e2>=ord(l1);
                e3:=e3+e2;
              end;
            writeln(e3:5);
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      2. feladat                                            0.5 pont
      a palindroma olyan sz”veg, amely balr˘l jobbra ‚s jobbr˘l bal-
      ra olvasva azonos, ha figyelmen kĄvl hagyjuk a bet–k k”z”tt
      tetsz“leges helyen szerepl“ hat rol˘ karaktereket (ezek: sz˘k”z,
      , ; . ? !). egy ilyen palindroma: 'gza kk az g'.
      k‚szĄtsen fggv‚nyt, amely eld”nti, hogy a bemeneti param‚ter-
      k‚nt megadott sz”veg palindroma-e, valamint a fggv‚ny adja
      vissza a visszafel‚ olvasott sz”veget a hat rol˘k elhagy s val!
      a fggv‚ny egy tov bbi param‚tere egy sz m, amely megmondja,
      hogy a max. 100 karakteres sz”veg pontosan mekkora.
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      3. feladat                                            0.5 pont
      k‚szĄtsen olyan fggv‚nyt, amely a param‚terk‚nt kapott k‚t
      pozitĄv eg‚sz sz mr˘l eld”nti, hogy bar ts gos sz mok-e!
      bar ts gos sz moknak nevezzk azokat a sz mp rokat, melyekre
      az egyik sz m egyenl“ a m sik sz m ”sszes val˘di oszt˘j nak
      ‚s egynek az ”sszeg‚vel, ‚s viszont.
      pl. 220 = 1 + 2 + 4 + 71 + 142
          284 = 1 + 2 + 4 + 5 + 10 + 11 + 20 + 22 + 44 + 55 + 110
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                         eddig tartott a minimum






      4. feladat                                            1.3 pont

      k‚szĄtsen programot, amely sz˘statisztik t k‚szĄt egy megadott
      text tĄpusŁ  llom nyr˘l. az eredm‚ny egy kimeneti  llom nyba
      kerlj”n, gyakoris gi sorrendben. sz˘nak sz mĄt minden olyan
      karaktersorozat, mely nem tartalmazza a sz˘k”z, sorv‚ge,  l-
      lom nyv‚ge, , ; . ! ? ‚s tabul tor karaktereket. a tabul tor
      k˘dj t egy tab_code nev– konstans adja meg.

      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      5. feladat                                            1.3 pont

      k‚szĄtsen fejt”r“-gener l˘ programot! a program olvasson be
      a szabv nyos bemenetr“l egy max. 64 karakteres sz”veget, majd
      Ąrja ezt be egy sakkt bl ba Łgy, hogy a sz”veg l˘ugr sban legyen
      ”sszeolvashat˘. az esetleges res helyekre '*' karakter kerlj”n
      (ez garant ltan nincs az input karaktersorozatban). a program
      ugyanazon bemenetre is t”bbf‚le megold st tudjon adni! a kezd“
      koordin t k is a szabv nyos bementr“l ‚rkez“ param‚terek legye-
      nek.
      haszn lhatja az al bbi fggv‚nyt:

      type szam=0..99;
      function sorsol(p:szam):szam;begin ... end;

      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      6. feladat                                            1.4 pont

      type buncselekmeny=(lopas,rablas,garazdasag,eroszak,gyilkossag);

      a rend“rs‚g nyilv ntart st vezet a b–n”z“kr“l. egy-egy adatlap
      szerkezete a k”vetkez“:

            - nyilv ntart si sz m:                  8 karakter
            - n‚v:                                 32 karakter
            - b–ncselekm‚ny:                       buncselekmeny
            - kiszabott bntet‚s (h˘nap):          eg‚sz sz m

      egy b–n”z“t nyilv ntart si sz ma egy‚rtelm–en azonosĄt. egy-egy
      visszaes“ b–n”z“r“l t”bb adatlap is van. az adatlapokat a
      priusz.dat  llom nyban t rolj k. k‚szĄtsen programot, amely ezen
       llom ny egyszeri beolvas sa alapj n kiĄrja annak a k‚t szem‚ly-
      nek a nev‚t, akik a legt”bb id“t t”lt”tt‚k b”rt”nben visszaes“-
      k‚nt egy-egy b–ncselekm‚ny-fajta elk”vet‚s‚‚rt! a k‚t b–n”z“
      "kedvenc" cselekm‚nye nem felt‚tlenl egyezik meg.

      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;

      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -