======= Programoz s Nagyz rthelyi === 1993. nov. 22. ==== NZ931125.txt

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.
    A r‚szletek egy olyan programban helyekednek el, amelynek a
    deklar ci˘s r‚sze a k”vetkez“:

< l sd:  V-Def.pas >
               - - - - - - - - - - - - - - - - - -
1.a)
        writeln;
        write(' ');  ch1:=chr(succ(ord(succ('0'))));
        e1:=0;
        for ch2:=ch1 to '5' do  e1:=succ(e1);
        writeln(e1);

1.b)
        e1:=0;  l1:=foberlet;
        while e1<= ord(l1) do e1:=2*(e1+1);
        writeln(ord(pred(l1)),e1);

1.c)
        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);

1.d)
        e1:=6;   e2:=5;   s(e1,e2);
        if not f(e1,e2) then writeln(e1:4) else writeln(e2:4);
-----------------------------------------------------------------------------

2.)  Egy h zasp r pontosan ugyanannyi fiŁgyermeket szeretne, mint l nyt.
     Elhat rozz k, hogy addig v llalnak Łjabb gyereket, amĄg ez nem teljesl,
     de legfeljebb M gyerekk lesz. K‚szĄtsen programot, amely N ilyen
     h zasp r esete alapj n meghat roza, hogy  tlagosan h ny gyerekk lesz
     ‚s h ny sz zal‚kuknak sikerl el‚rni az azonos fiŁ-l ny sz mot.
     N ‚s M bemeneti adat, ‚s feltesszk, hogy a fiŁk ‚s a l nyok szlet‚si
     val˘szĄn–s‚ge azonos. Haszn lhatja a  FUNCTION RANDOM :REAL;  fej–
     v‚letlensz m gener tor fggv‚nyt, amely minden egyes hĄv sakor egy-egy
     Łj, a (0,1) intervallumba es“, egyenletes eloszl sŁ v‚letlen ‚rt‚ket ad.

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

3.)  K‚szĄtsen fggv‚nyt, amely meghat roza, hogy a param‚terk‚nt
     kapott string - melyben csak sz mjegyek ‚s nagybet–k vannak -
     leg l 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., teh t pl.
     '5B3' 12-es sz mrendszerbeli sz mnak tekinthet“.
     FELTESSZšK, HOGY A BETšK FOLYTONOS SOROZATOT ALKOTNAK!

======================= Beugr˘ v‚ge =========================================

4.)  K‚szĄtsen teljes programot, amely meghat roza ‚s kiĄrja,
     hogy a szabv nyos input  llom nyban h ny karakter, sor ‚s sz˘ van.
     Sz˘ az, amit sz˘k”z vagy Łjsor jel vagy EOF hat rol.

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

A/5.) Adottak a k”vetkez“ definĄci˘k:
       const  m1= ...;  m2= ...;
       type   matrix = array [1..m1, 1..m2] of real;
     K‚szĄtsen elj r st, amely a K-adik oszlop nak ‚rt‚kei szerint
     n”vekv“ sorrendbe rendezi egy ilyen matrix tĄpusŁ t”mb sorait.
     V lasszon megfelel“ param‚tereket! Nem haszn lhat glob lis v ltoz˘t!


B/5.) Adottak a k”vetkez“ definĄci˘k:
       const  m1= ...;  m2= ...;
       type   matrix = array [1..m1,1..m2] of real;
     K‚szĄtsen elj r st, amely a K-adik sor nak ‚rt‚kei szerint
     n”vekv“ sorrendbe rendezi egy ilyen matrix tĄpusŁ t”mb oszlopait.
     V lasszon megfelel“ param‚tereket! Nem haszn lhat glob lis v ltoz˘t!

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

6.)  Adottak a k”vetkez“ definĄci˘k:
       type  mut =^rec;
             rec = record ....;   bal, jobb :mut;  end;
     K‚szĄtsen fggv‚nyeket, amelyek meghat rozz k ilyen elemekb“l  ll˘:
       A)  k‚tir nyŁ l ncolt lista elemeinek sz m t,
       B)  bin ris fa elemeinek sz m t,
       C)  bin ris fa szintjeinek sz m t.
     Mindk‚t adatszerkezet "v‚g‚t" a megfelel“ mutat˘ nil ‚rt‚ke jelzi.
     V lasszon megfelel“ param‚tereket! Nem haszn lhat glob lis v ltoz˘t!