program vizsga;

{================= sz m¡t¢g‚pek programoz sa vizsga ================
                              1988. dec. 21.

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.

{-------------------------------------------------------
1.a}    for e1:=-3 div 2  to  33 mod 13 do
          if odd (e1) then write(e1+1:3);

{-------------------------------------------------------
  b}    h1:=[1..12];
        for e1:=6 to 11 do
          h1:=h1-[e1]+[2*e1];
        for e1:=1 to 30 do
        begin
          if e1 in h1 then write(e1-2:3);
          if e1 mod 10 =0 then writeln;
        end;

{-------------------------------------------------------
  c}  m1:=nil;  m3:=nil;
      for e2:=1 to 3 do
      begin
        new (m2);  m2^.kulcs:=e2+2;
        if m1=nil then m1:=m2;
        m2^.lanc:=m3;
        m3:=m2;
      end;
      m1^.lanc:=m2;
      for e1:=1 to 5 do
      begin  write(m1^.kulcs:3);  m1:=m1^.lanc;  end;

{-------------------------------------------------------
  d}  e1:=5;  e2:=6;  s(e1,e2);
      if f(e1,e2) then writeln(e1:3) else writeln(e2:3);

{-------------------------------------------------------
  e}  with rect[1] do
        begin  nev:='cc';  suly:=5;  end;
      with rect[2] do
        begin  nev:='cd';  suly:=7;  end;
      if rect[1].nev>rect[2].nev
      then writeln(rect[1].suly)
      else writeln(rect[2].suly);

{-------------------------------------------------------
  f}  e1:=3;  e2:=0;  b1:=e1<=e2;  t2[1,1]:=b1;
      t2[1,2]:=t2[1,1] or (e1 mod 2=1);
      t2[2,1]:=t2[1,1] and t2[1,2];
      t2[2,2]:=not t2[2,1] and t2[1,2];
      for e1:=1 to 2 do
        for e2:=1 to 2 do  write(t2[e1,e2]:8);

{-------------------------------------------------------
2)  k‚sz�tsen teljes programot, amely beolvas sorv‚g jelig
    egy legfeljebb 100 karakteres sz”veget, majd a nem
    mag nhangz¢ karaktereket ford¡tott sorrendben ki¡rja.
    a mag nhangz¢k:  a  e  i  o  u .

-------------------------------------------------------
3)  adottak a k”vetkez“ defin¡ci¢k:

    const  h= ... ;
    type   nagyszam = array[0..h] of 0..99;

    egy ilyen adatban egy h jegy– pozit¡v eg‚sz sz mot
    t rolhatunk £gy, minden t”mbelembe ennek egy-egy
    100-as sz mrendszerbeli jegy‚t tessz�k, a 0-dik
    elem a legkisebb helyi‚rt‚k–.
       k‚sz¡tsen elj r st, mely ”sszead k‚t ilyen sz mot!
    v lasszon megfelel“ param‚tereket, nem haszn lhat
    glob lis v ltoz¢t.

==========================================================
4)  k‚sz¡tsen f�ggv‚nyt, amely egy param‚terk‚nt  tvett
    egyetlen val¢s paramter–, val¢s f�ggv‚ny adott inter-
    vallumbeli maximum nak hely‚t megadja adott pontos-
    s ggal.
    v lasszon megfelel“ param‚tereket, nem haszn lhat
    glob lis v ltoz¢t.

-------------------------------------------------------
5)  k‚sz¡tsen egy teljes programot, amely beolvassa
    ‚s ki¡rja a szabv nyos input  llom ny tartalam t,
    de £gy, hogy k‚t sz¢ k”z”tt pontosan egy sz¢k”zt
    hagy csak. a szavakat az eredeti sz”vegben tetsz“-
    leges sz m£ sz¢k”z v laszthatja el.
    a sorokra tagol s maradjon az eredeti!

--------------------------------------------------------
6)  adottak a k”vetkez“ deklarci¢k:

    type   ptr = elem;
           elem = record
                    er  :integer;
                    kov :ptr;
                  end;

    k‚sz¡tsen elj r st, melynek feje:

    procedure  kihagy (mit :integer;  var lanc :ptr);

    ‚s amely a mit ‚rt‚k– elemeket kiveszi a lanc  ltal
    mutatott l ncb¢l ‚s megsz�nteti “ket.