{=== Programtervez‚s Nagyz rthelyi - 2000. 11. 21. === NZ001121.txt

Minden sz mozott feladat megold s t kl”n A4-es lapra Ąrja!
Minden lapnak csak az egyik fel‚re Ąrhat.
A lap tetej‚n balra Ąrja fel a feladat sz m t, jobbra a nev‚t, Neptun 
k˘dj t, tank”rsz m t, valamint gyakorlatvezetoje nev‚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
‚s 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“:

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 fggv‚nyt, amely adott pontoss ggal kisz mĄtja, hogy egy haj˘
milyen m‚lyen fog a vĄzbe merulni, azaz mekkora a merl‚se. Bemeneti adat 
a haj˘ sŁlya [kg], a szks‚ges pontoss g [cm] ‚s adva van egy 
val˘s -> val˘s fggv‚ny, amely a merul‚si m‚lys‚g [cm] fggv‚ny‚ben 
megadja a haj˘test vĄzvonalbeli keresztmetszer‚t, azaz a vĄzvonal  ltal 
bez rt terlet nagys g t [dm^2].
Magyar zza meg m˘dszer‚t!
--------------------------------------------------------------------------
3.
K‚szĄtsen teljes programot, beolvas legfeljebb 2000 nevet, melyekrol 
tudjuk, egyikk sem hosszabb 30 karaktern‚l, ‚s mindegyik kl”n sorban van,
majd kiĄrja azokat n‚vsorban.
Adja meg rendez‚si m˘dszere nev‚t ‚s a rendez‚shez szks‚ges 
”sszehasonlĄt sok maxim lis sz m t is.
============================ BEUGR• VGE =================================
4.                                                                [2 pont]
Adottak a k”vetkezo definĄci˘k:
  type m_t = ^ elem_t;
       elem_t = record   v :integer;  kov: m_t;  end;
K‚szĄtsen elj r st, amely ilyen elemekbol  ll˘ l nc tartalm t lem solja
k‚t l ncba; a p ros ‚rt‚kueket az egyikbe, a p ratlan ‚rt‚kueket a m sikba.
V lasszon megfelelo param‚tereket ‚s magyar zza meg azokat!
--------------------------------------------------------------------------
5.                                                                [2 pont]
K‚szĄtsen programot, kiĄrja, hogy a beolvasott val˘s eg‚szek monoton, 
vagy szigorŁan monoton, m‚gpedig n”vekvo vagy cs”kkeno sorozatot alkotnak, 
vagy egyiket sem, azaz 5 eset lehets‚ges.
A sz mok sz ma tetszolegesen nagy lehet.