{====== Programoz s ====== Nagyz rthelyi - 1996. 11. 28. ====== NZ961128.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, tank”rsz m t
‚s csoportja bet–j‚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 t”bbi elj r s ‚s fggv‚ny nem.

---------------------------------------------------------------------------
1.
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“:

< v-def.pas >

--- A ---
      e3:=0;
      for e1:=1 to 5 do begin
        e2:=e1+2;
        for e2:=e2-1 to e2+1 do  e3:=e3+1;
      end;
      writeln (e3 :3);

--- B ---
      for l1:=alberlet to kastely do  t1[ord(l1)+6] := ord(l1)+1;
      for e2:=5 downto 1 do  t1[e2] := t1[e2+5]+5;
      for e1:=1 to 9 do begin
        for e2:=e1+1 to 10 do
          if t1[e2] < t1[e1] then begin
            e3 := t1[e1];  t1[e1] := t1[e2];  t1[e2] := e3;
          end;
        write(t1[e1]:3);
      end;
      writeln(t1[10]:3);

--- C ---
      new(m1);  m1^.kulcs:=1;
      new(m2);  m2^.kulcs:=2;  m2^.lanc:=m1;
      new(m3);  m3^.kulcs:=3;  m3^.lanc:=m2;  m1^.lanc:=m3;
      e1:=0;
      while m1<>nil do begin
        write(m1^.kulcs:3);  e1:=e1+m1^.kulcs;
        if e1>5 then m2^.lanc:=nil;
        m1:=m1^.lanc;
      end;
      writeln (e1:3);

--- D ---
     e1:=12;  e2:=3;
     while not f(e1,e2)  do  s(e1,e2);
     writeln;

--------------------------------------------------------------------------
2.
Adottak a k”vetkez“ definĄci˘k:
   const  m1 = ...;  m2= ...;  {mindkett“ legal bb 2}
   type  string = packed array [1..30] of char;
         tt1 = array [1..m1] of string;
         tt2 = array [1..m2] of string;
K‚szĄtsen elj r st, amely eld”nti, hogy egy tt1 tĄpusŁ t”mb minden eleme
megtal lhat˘-e egy m sik, tt2 tĄpusŁban, azaz van-e az els“nek minden egyes
elem‚vel megegyez“ elem a m sodikban. V lasszon megfelel“ param‚tereket!
--------------------------------------------------------------------------
3.
K‚szĄtsen programot, amely a szabv nyos bemenetr“l beolvassa az ”sszes
sz˘t, majd ezeket abc rendben kiĄrja. A szavakat legal bb egy sz˘k”z
vagy Łjsor jel v lasztja el. Tudjuk, hogy egyik sz˘ sem hosszabb 30
karaktern‚l, ‚s hogy a szavak sz ma legfeljebb 1000.
============================ BEUGR• VGE =================================
4.
K‚szĄtsen fggv‚nyt, amely adott pontoss ggal megkeresi egy param‚terk‚nt
kapott val˘s param‚ter–, val˘s ‚rt‚k– fggv‚ny maximum t adott
intervallumban. Tudjuk, hogy ott a fggv‚nynek csak egy maximuma van.
V lasszon megfelel“ param‚tereket!
--------------------------------------------------------------------------
5.   (A 3. feladat r‚szben nehezĄtett, r‚szben k”nnyĄtett v ltozata.)
K‚szĄtsen programot, amely a szabv nyos bemenetr“l beolvassa az ”sszes
sz˘t, majd ezeket abc rendben kiĄrja, de mindegyiket csak egyszer.
Tudjuk, hogy minden sorban pontosan egy sz˘ van, hogy el“tte ‚s ut na
nincsen sz˘k”z, ‚s hogy egyik sz˘ sem hosszabb 30 karaktern‚l.
Nem tudjuk azonban, hogy h ny kl”nb”z“ sz˘ van, csak azt, hogy a
kl”nb”z“ek elf‚rnek a mem˘ri ban.
--------------------------------------------------------------------------