{==== Programtervez‚s ==== Nagyz rthelyi - 1997. 11. 20. ==== NZ971120.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, az eredeti feladatk‚nt kapott
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“:

< L sd:  V-Def.pas  >

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

--- B ---
      with rect[1] do begin nev:='12';  suly:=3;  end;
      with rect[2] do begin nev:='34';  suly:=2;  end;
      with rect[3] do begin nev:='56';  suly:=4;  end;
      e1:=0;
      repeat
        e1 := e1 + ord (rect[e1 mod 3 +1].nev[2]) - ord('0');
      until e1>=2;
      writeln (rect[e1].nev);

--- C ---
      for e2:=1 to 10 do  t1[e2]:= 11-e2;
      for e1:=1 to 3 do begin
        e2:=t1[e1];  t1[e2]:=e1;
      end;
      for e1:=1 to 10 do write(t1[e1]:4);
      writeln;

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

--------------------------------------------------------------------------
2.
K‚szˇtsen elj r st, amely egy eg‚sz sz mr˘l eld”nti, hogy t”k‚letes sz m-e!
Az a t”k‚letes sz m, amely egyenl“ a n la kisebb oszt˘i ”sszeg‚vel.
Pl.   6 = 1+2+3     28 = 1+2+4+7+14
--------------------------------------------------------------------------
3.
K‚szˇtsen teljes programot, amely beolvassa sˇkbeli pontok x ‚s y
koordin t it, majd kiˇrja a pontok k”z”tt hŁzhat˘ leghosszabb szakasz
hossz t! A pontok sz ma legfeljebb 1000.
============================ BEUGR• VGE =================================
4.                                                                [2 pont]
K‚szˇtsen elj r st, amely legfeljebb 1000 val˘s sz m k”zl megkeresi a
medi nt, ‚s megadja annak ‚rt‚k‚t ‚s sorsz m t!
Sz mok k”zl az a medi n, amelyn‚l ugyanannyi kisebb sz m van, mint
nagyobb, vagy ezek sz ma legfeljebb eggyel kl”nb”zik. Ha t”bb ilyen van,
akkor b rmelyiket v laszthatja. Pl. 1 3 2 3 2 6 5 medi nja 3, ak r a
m sodik, ak r a negyedik,   1 1 1 1  medi nja pedig b rmelyik.
V lasszon megfelel“ param‚tereket!
Ťrja le sz”vegesen is megold sa l‚nyeg‚t!
--------------------------------------------------------------------------
5.                                                                [2 pont]
K‚szˇtsen programot, amely kiˇrja a beolvasott sz”vegb“l a leghosszabb
sz˘t. A szavakat legal bb egy sz˘k”z vagy Łjsor jel v lasztja el.
Tudjuk, hogy egyik sz˘ sem hosszabb 100 karaktern‚l.
(A szabv nyos Pascalban ha sorv‚ge jelet char tˇpusŁ v ltoz˘ba olvasunk be,
 akkor sz˘k”zt t rol a v ltoz˘ba a g‚p.)
--------------------------------------------------------------------------