= = = = = = = = = programoz s alapjai = = = = = = = = =
                              vizsga
                          1992. febru r 6.
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      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)
            e1:=6;   e2:=4;
            s(e1,e2);
            if not f(e1,e2) then writeln(e1:4) else writeln(e2:4);
            -----------------------------------------------------
        b)
            e3:=2;
            for l1:=alberlet to kastely do
              begin
                e2:=0;
                repeat e2:=e2+2;
                until e2>=ord(l1);
                e3:=e3+e2;
              end;
            writeln(e3:5);
            -----------------------------------------------------
        c)
            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);
            -----------------------------------------------------
        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)
            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;
      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

      2. feladat                                            0.5 pont

      k‚szĄtsen pascal elj r st, amely a param‚terk‚nt  tvett
      80 karakteres t”mbben a nem sz˘k”z karaktereket k”z‚pre
      rendezi Łgy, hogy k‚t sz˘ k”z”tt csak egy-egy sz˘k”z marad.

      deklar lja a szks‚ges adattĄpust is!

      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      3. feladat                                            0.5 pont

      type pont=record x,y:real end; haromszog=array[1..3] of pont;

      K‚szĄtsen pascal fggv‚nyt, amely param‚terk‚nt egy haromszog
      tĄpusŁ adatot vesz  t, ‚s a h romsz”g terlet‚t adja vissza a
      Heron-k‚plet alapj n. Ha a pontok nem alkotnak h romsz”get, a
      fggv‚ny‚rt‚k legyen nulla!

      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                         eddig tartott a minimum

      4. feladat                                            1.2 pont

      K‚szĄtsen pascal programot, amely egy real tĄpusŁ adatokb˘l
       ll˘ nem sz”veges adat llom ny egyszeri beolvas sa alapj n
      meghat rozza az utols˘ 50 adat k”zl a legkisebbet. az  llo-
      m nyban annyi adat van, hogy semmik‚pp sem f‚r el egyszerre
      a sz mĄt˘g‚p mem˘ri j ban.

      az eredm‚nyt az output-ra kell kiĄrni.

      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;

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

      5. feladat                                            1.4 pont

      adott egy k‚t ir nyban l ncolt lista, amelynek minden eleme
      a mutat˘kon kĄvl egy h rom eg‚sz sz m t rol s ra szolg l˘
      t”mb”t tartalmaz.
      a lista elej‚re az erre alkalmas head azonosĄt˘jŁ mutat˘ mutat.
      a lista rendezett - a rendez‚s kulcsa az els“ t”mbelem.
      vegye fel a szks‚ges tĄpus- ‚s v ltoz˘ deklar ci˘kat.
      k‚szĄtsen elj r st, amely a list t k‚tszeresen egyir nyban
      l ncolt lista szerkezett‚ alkĄtja. a m sodik rendez‚s kulcsa
      a harmadik t”mbelem legyen!

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

      6. feladat                                            1.4 pont

      k‚szĄtsen pascal programot, amely az al bbi szerkezet–  llom ny
      egyszeri beolvas sa alapj n kiĄrja a legvagyonosabb emberrel egy
      ‚vben szletettek k”zl a legszeg‚nyebbnek a szlet‚snapj t.
      minden szem‚lyr“l csak egy adatlap van.

             - n‚v:                      30 karakter
             - szlet‚si ‚v:             eg‚sz sz m
             - szlet‚snap:              6 karakter
             - vagyon:                   val˘s sz m


      az  llom ny nem sz”veges tĄpusŁ.


      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;

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