{=== Programoz s alapjai === Besz mol˘ - 1998. 12. 22. === V-981222.txt

Minden sz mozott feladat megold s t kl”n lapra Ąrja!
Minden lapnak csak az egyik fel‚re Ąrhat.
A lap tetej‚re Ąrja fel balra a feladat sz m t, jobbra a nev‚t, k˘dj t,
tank”rsz m t valamint laborcsoportja id“pontj t ‚s term‚t!
A megold shoz haszn lhat bels“ elj r sokat ‚s fggv‚nyeket, de csak
ezek haszn lhatnak glob lis v ltoz˘t, a feladatk‚nt kapott elj r sok
illetve fggv‚nyek nem.

---------------------------------------------------------------------------
1.                                                             [ 1-1 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. Csak a v‚gleges megold st adja be!
A r‚szletek egy olyan programban helyekednek el, amelynek a
deklar ci˘s r‚sze a k”vetkez“:

< l sd: V-Def.pas >

--- A ---
        ch1:=chr(succ(ord(succ('0'))));
        e1:=0;
        for ch2:=ch1 to '5' do  e1:=succ(e1);
        writeln (e1:3);
--- B ---
        for e1:=1 to 3 do  with  rect[e1] do  begin
          suly:=e1 div 2 +1;
          if e1<2 then nev:='ab'
                  else  if e1 mod 3=0 then nev:='ac'
                                      else nev:='aa';
        end;
        for e1:=1 to 2 do
           if rect[e1].nev < rect[e1+1].nev
           then   writeln (' ', rect[e1].nev)
           else   writeln (' ', rect[e1].suly);

--- C ---
        e2:=0;
        while not eof do
        begin
           readln(e1);
           if e1 in [1..4] then e2:=e2+1;
        end;
        writeln(e2);

A bemen“ adatok       (| a sor eleje, a _ a sz˘k”zt jelzi)

       e    e       e
       o    o       oe
       l    l       lo
|_9__1_n_4_3n_+2__+1nf

--- D ---
    h1:=[20,15..18,2];    h2:=[4..9,13..16,22];
    h1:=h1-h2;
    for e2:=1 to 30 do
      if e2 in h1 then write (e2:3);
    writeln;

--------------------------------------------------------------------------
2.                                                              [ 2 pont ]
   K‚szĄtsen fggv‚nyt, amely meghat roza, hogy a param‚terk‚nt
   kapott string - melyben csak sz mjegyek ‚s nagybet–k vannak -
   legal bb h nyas sz mrendszerbeli sz mnak felel meg! A sz mjegyek
   rendre:  '0'  '1'  '2'  '3' ... '9'  'A'  'B'  ... 'Z',
   ahol 'A' decim lis sz mk‚nt 10, 'B' 11, stb.
   P‚ld ul   5B3  12-es sz mrendszerbeli sz mnak tekinthet“.
   FELTESSZšK, HOGY A BETšK FOLYTONOS SOROZATOT ALKOTNAK.
--------------------------------------------------------------------------
3.                                                              [ 2 pont ]
   K‚szĄtsen teljes programot, amely meghat rozza ‚s kiĄrja, hogy a
   beolvasott legfeljebb 100 eg‚sz sz mnak mi a legnagyobb k”z”s oszt˘ja
   vagy a legkisebb k”z”s t”bbsz”r”se!
   El“sz”r adja meg megold sa gondolatmenet‚t sz”vegesen!       [0.5 pont]
   (Az LKKT meghat roz sakor nem kell figyelnie a tŁlcsordul st.)

============================ BEUGR• VGE =================================

4.                                                            [ 1.5 pont ]
   K‚szĄtsen egy fggv‚nyt, amely meghat rozza, hogy egy
     tt = array [1..tn] of real;     {tn egy konstans}
   tĄpusŁ t”mbnek, amelynek els“ N eleme van felt”ltve, els“ h ny
   eleme tekinthet“ heap-nek (kupacnak)!

--------------------------------------------------------------------------
5.                                                            [ 2.5 pont ]
   K‚szĄtsen teljes programot, amely egy file-b˘l beolvassa az ellopott
   szem‚lyg‚pkocsik adatait (rendsz m, alv zsz m, motorsz m),
   ‚s ellen“rzi, hogy egy m sik file-ban adott aut˘k adatai k”z”tt
   van-e olyan, amelyiknek b rmelyik adata megegyezik az ellopottak
   valamelyik‚vel, ‚s kiĄrja ennek adatait, valamint azt, hogy milyen
   adat egyezik!
   Nem tudjuk el“re a file-ok hossz t, de azt igen, hogy az els“ file
   tartalma elf‚r a mem˘ri ban, a m sodik pedig nem.
   A file-ok nem rendezettek, ‚s tartalmukat csak egyszer olvashatja be.
   V lasszon megfelel“ adatszerkezeteket!