================= programoz s alpjai ================
                      1991.12.13.
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“:

< v-def.pas >

1. feladat

  a)  e1:=2;  e2:=3;  h1:=[];  h2:=[4..9,15..9,15..20];
      repeat h1:=h1+[e1];  e1:=e1+3;  until e1>20;
      h3:=h1*h2;
      for e1:=1 to 30 do  if e1 in h3 then write(e1:5);

      -----------------------------------------------------
  b)  v1:=4;  v2:=0.1;  b1:=sin(v1)>1.1;
      t2[1,1]:=b1 or (sqrt(v2)>1.0);
      t2[1,2]:=t2[1,1] or (trunc(v1-0.1)>2);
      t2[2,1]:=not t2[1,1] and t2[1,2];
      t2[2,2]:=ord('a') > ord('f');
      for e1:=1 to 2 do
      for e2:=1 to n do  write(t2[e1,e2]:6);
      -----------------------------------------------------

  c)  e1:=-6;  e2:=2;
      while  f(8,e1+e2) do s(e1,2*e2);
      -----------------------------------------------------
  d)  for e1:=1 to 10 do t1[e1]:=e1 mod 4;
      for e1:=9 downto 2 do
        if t1[e1-1.)+t1[e1+1]=t1[e1]*2
        then writeln (e1,t1[e1]:6);
      -----------------------------------------------------
  e)  new(m1);  new(m2);  new(m3);
      with m1^ do begin  kulcs:=1;  lanc:=m2;  end;
      with m2^ do begin  kulcs:=2;  lanc:=m3;  end;
      with m3^ do begin  kulcs:=3;  lanc:=m3;  end;
      m3:=m1;  e1:=0;
      repeat  write(m3^.kulcs:6);  e1:=e1+m3^.kulcs;
              m3:=m3^.lanc;  until e1>8;
      -----------------------------------------------------
  f)  writeln; write(' ');  ch1:=chr(succ(ord(succ('0'))));
      e1:=0;
      for ch2:=ch1 to '5' do e1:=succ(e1);
      writeln(e1:5);
--------------------------------------------------------------

 2.feladat
      k‚sz¡tsen f�ggv‚nyt, amely megadja, hogy a
          str = packed array [1..10] of char
      t¡pus£ param‚terben megkapott karaktersorozat
      legal bb h nyas sz mrendszerbeli sz m lehet.
      10-n‚l magasabb sz mrendszerbeli sz mok 10-n‚l
      magasabb ‚rt‚k– sz mjegyeinek a nagybet–ket haszn ljuk.
      pl.:     a=10    b=11   ...   z=35
      �gy pl.  2423401  legal bb 5-”s,
               58a6f8c  legal bb 16-os sz mrendszerbeli.
      ha a karaktersorozat r”videbb, mint 10 karakter,
      akkor a t”mbben ut na csupa sz¢k”z”k  llnak.
      a f�ggv‚ny nem haszn lhat glob lis v ltoz¢kat,
      v lasszon megfelel“ param‚tereket!
---------------------------------------------------------------

3. feladat
k‚sz¡tsen elj r st, amely egy eg‚szeket tartalmaz¢ sz zelem–
t”mbben helyi‚rt‚k szerint sz mjegyeivel  br zolt, maximum 48
jegy–, tizes sz mrendszerbeli sz mot  h rmas sz mrendszerbe
k¢dol  t.  a t”mb indexel‚se megfelel a helyi‚rt‚kekhez tartoz¢
hatv nykitev“nek. az elj r s az eredm‚nyt az  tvett eredeti
t”mbben adja vissza. a sz m  ltal el nem foglalt rekeszekben
0 van.
--------------------------------------------------------------

4. feladat
      adottak a k”vetkez“ defin¡ci¢k:
        const  m= ...;
        type   tt = array [1..m,1..m] of boolean;
      k‚sz¡tsen elj r st, amely egy ilyen t¡pus£ t”mbben
      megsz molja azokat a true ‚rt‚k– elemeket, amelyek
      egy adott elemt“l csupa true ‚rt‚k– szomsz‚dos elemeken
      l‚pkedve legfeljebb k l‚p‚sben el‚rhet“k.
      szomsz‚dosnak azok az elemeket nevezz�k, melyeknek
      csak egyik indexe, az is legfeljebb 1-el t‚r el
      az adott elem index‚t“l.
      tudjuk, hogy a t”mb minden sz‚ls“ eleme, azaz amelyek
      valamelyik indexe 1 vagy m, false ‚rt‚k–.
      az elj r s nem haszn lhat glob lis v ltoz¢kat,
      v lasszon megfelel“ param‚tereket!
--------------------------------------------------------------

5. feladat
egy c‚g alkalmazottair¢l az alk.dat f jlban a k”vetkez“
szerkezet– –rlapokat t rolja:
	- n‚v:			32	karakter
	- sz�let‚si ‚v:		4	karakter
	- anyja neve:		32	karakter
	- lak sc¡m:		60	karakter
	- beoszt si k¢d:	6	karakter
	- fizet‚s:		6	karakter
a fizet‚s mez“ a sz mot jobbra t”m”r¡tve, az ‚rt‚ktelen
helyi‚rt‚keken sz¢k”z karakterrel kit”ltve tartalmazza.
(pl: _13682  , __8746)
�rjon pascal programot amely a alk.dat f jl alapj n ki¡rja
azon alkalmazottak nev‚t, akik ugyanabban az ‚vben sz�lettek,
mint a c‚g legkevesebbet keres“ dolgoz¢ja. a f jlt csak
egyszer olvashatja be! felt‚telezheti hogy a c‚gnek
nincs k‚t egyforma fizet‚s– alkalmazottja.
---------------------------------------------------------------

6. feladat
k‚sz¡tsen programot, amely egy pascal nyelv–  program sz”veg‚ben
megsz molja a val¢s t¡pus£ f�ggv‚nydeklar ci¢kat. a sz”veget az
input tartalmazza, az eredm‚nyt az output-ra kell ki¡rni.
--------------------------------------------------------------