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

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


      meg kell  llapĄtani, hogy az al bbi programr‚szek hat s ra
      mi fog kiĄr˘dni. 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)  new(m1);  new(m2);  new(m3);
            with m1^ do begin  kulcs:=3;  lanc:=m2;  end;
            with m2^ do begin  kulcs:=1;  lanc:=m3;  end;
            with m3^ do begin  kulcs:=2;  lanc:=m3;  end;
            m3:=m1;  e1:=0;
            repeat  write(m3^.kulcs:6);  e1:=e1+m3^.kulcs;
                    m3:=m3^.lanc;  until e1>8;
            -----------------------------------------------------
        b)  e1:=-6;  e2:=2;
            while  f(8,e1+e2) do s(e1,2*e2);
            -----------------------------------------------------
        c)  v1:=4;  v2:=0.1;  b1:=sin(v1)>1.1;
            t2[1,1]:=b1 or (sqrt(v2)>1.0);
            t2[1,2]:=t2[1,1] or (trunc(v1-0.1)>2);
            t2[2,1]:=not t2[1,1] and t2[1,2];
            t2[2,2]:=ord('a') > ord('f');
            for e1:=2 downto 1 do
            for e2:=1 to n do  write(t2[e1,e2]:6);
            -----------------------------------------------------
        d)  e1:=2;  e2:=3;  h1:=[];  h2:=[4..9,15..9,15..20];
            repeat h1:=h1+[e1];  e1:=e1+3;  until e1>20;
            h3:=h1*h2;
            for e1:=1 to 30 do  if e1 in h3 then write(e1:5);
            -----------------------------------------------------
        e)  writeln; write(' ');  ch1:=chr(succ(ord(succ('0'))));
            e1:=7;
            for ch2:=ch1 to '5' do e1:=pred(e1);
            writeln(e1:5);
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

      2. feladat                                            0.5 pont

          type torpe=(tudor,vidor,szende,szundi,hapci,morgo,kuka);
               banya=set of torpe;

          k‚szĄtsen pascal fggv‚nyt, amely megadja, hogy h ny t”rpe
          tart˘zkodik a b ny ban, vagyis azt az eg‚sz sz mot, amely
          a param‚terk‚nt  tvett banya tĄpusŁ halmaz sz moss ga.
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

      3. feladat                                            0.5 pont

          type firka=array[1..100] of char;

          k‚szĄtsen pascal elj r st, amely egy param‚terk‚nt kapott
          firka tĄpusŁ t”mbben a sz mjegyeket a t”mb elej‚re gy–jti.
          a t”mb felt”lt”tts‚g‚t a m sodik param‚ter adja meg. sem a
          sz mjegyek, sem az egy‚b karakterek sorrendje nem v ltozhat
          meg az eredeti  llapothoz k‚pest.
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

                         eddig tartott a minimum

      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

      4. feladat                                            1.2 pont

          k‚szĄtsen pascal programot, amely a szabv nyos input-r˘l
          beolvas egy maximum 1000 ‚rt‚k– "n" pozitĄv eg‚sz sz mot,
          ‚s t bl zatos form ban kiĄrja a szabv nyos output-ra a 2
          n-edik hatv ny nak 10-es sz mrendszerbeli alakj ban el“-
          fordul˘ sz mjegyek gyakoris g t.
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

      5. feladat                                            1.2 pont

          k‚szĄtsen pascal programot, amely a szoveg.dat sz”veges
          adat llom nyb˘l kiv logatja, ‚s a szavak.dat  llom nyba
          kiĄrja azokat a szavakat, amelyek legal bb h rom mag n-
          hangz˘t tartalmaznak.
          ( a mag nhangz˘k  a,a,e,e,i,i,o,o,u,u )
          sz˘t hat rol minden nem bet– karakter. felt‚telezheti,
          hogy egy sz˘ legfeljebb 80 karakterb“l  ll. a megold s
          sor n nem haszn lhatja a turbo pascal string tĄpus t!

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

      6. feladat                                            1.6 pont

          p‚nzs˘v ralja k”zs‚gben az ad˘z s gy‚t mindenki a szĄv‚n
          viseli. id“r“l-id“re k”zz‚teszik a legt”bb ad˘el“leggel
          h tral‚kban lev“ polg rok n‚vsor t. a feldolgozand˘ adatok
          az adatok.dat  llom nyban tal lhat˘k, amelyet csak egyszer
          szabad beolvasni. az  llom ny a befizet‚seket igazol˘ bi-
          zonylatokat tartalmazza, amelyek szerkezete a k”vetkez“:

	     - n‚v:			32 karakter
	     - szlet‚si d tum:          8 karakter
	     - anyja neve:		32 karakter
	     - kifizet‚s d tuma:         8 karakter
             - kifizetett ”sszeg:        val˘s sz m
             - befizetett ad˘el“leg:     val˘s sz m

          segĄtsen a hivatalnokon! k‚szĄtsen pascal programot, amely
          feldolgozza az adatokat, ‚s a tartozik.dat  llom nyba n‚v-
          sorba rendezve kiĄrja a tĄz legnagyobb ”sszeggel tartoz˘
          polg r nev‚t.
          egy-egy szem‚lyre t”bb bizonylat is vonatkozhat.
          nincs k‚t olyan azonos nev– polg r, akinek anyja neve is
          megegyezik.
          az ad˘ s vos rendszer– az al bbiak szerint:

                      100 eft-ig      0 %
          a k”vetkez“ 150 eft        17 %
          a k”vetkez“ 200 eft        29 %
          a k”vetkez“ 250 eft        41 %
          a k”vetkez“ 350 eft        53 %
                        e f”l”tt     65 %
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -