program vizsga(input,output);      (* 1989.12.27. *)

(* 1. feladat
meg kell  llap¡tani, hogy az al bbi programr‚szek hat s ra
mi fog ki¡r¢dni. fontos az is, hogy mi ker�l £j sorba.


(* 1.a.  ______________________________________________________ *)
h1:=[];
for l1:=tarsberlet to kastely do h1:=h1+[ord(l1)];
h2:=[];
for e1:=5 downto 3 do h2:=h2+[e1];
h3:=h1*h2;
for e1:=1 to 30 do
   if e1 in h3 then write(e1:3);
writeln;
(* 1.b.  ______________________________________________________ *)
e1:=5; e2:=6;
e1:=e1 + e2 mod 3 + 2*e1 - e2 div 2;
e2:=e1 + e2 div 5;
if e1>e2 then for e3:=e1 downto e2 do write(e3:3)
         else for e3:=e1 to e2 do write(e3:3);
writeln;
(* 1.c.  ______________________________________________________ *)
b1:=true; new(m2); m2^.lanc:=nil; m2^.kulcs:=2;
while b1 do begin
            new(m1); m1^.lanc:=m2; m1^.kulcs:=m2^.kulcs*2;
            b1:=m1^.kulcs<7; m2:=m1;
            end;
m3:=m2^.lanc^.lanc; m1^.lanc^.lanc:=m1;
m3^.lanc:=m1^.lanc; m1^.lanc:=nil;
write(m3^.lanc^.kulcs:3); m1:=m3^.lanc;
writeln(m1^.lanc^.kulcs:3);
(* 1.d.  ______________________________________________________ *)
e1:=5; e2:=6;
s(e1,e2);
if f(e1,e2) then writeln(e2:3)
            else writeln(e1:3);
(* 1.e.  ______________________________________________________ *)
readln (ch1,v1,v2);    writeln(' ',ch1,v1:5:2,v2:4:1);
readln (ch1,ch2);      writeln(' ',ch1,ch2);
read (e1);             writeln(e1:3);
(*
 bemeneti adatok:

      e    e   e    e  e
      o    o   o    o  oe
      l    l   l    l  lo
123e-2n7 abn gkn42 1n54nf
*)
(* 1.f.  ______________________________________________________ *)
for e1:=1 to 3 do with rect[e1] do
         begin
         nev[1]:='a'; nev[2]:=chr(ord('0')+e1); suly:=e1;
         end;
for e1:=3 downto 1 do
   writeln(rect[e1].nev,rect[e1].suly:4);

(* ____________________________________________________________ *)
(* 2. feladat

   irjon elj r st, amelynek bemeneti param‚tere egy maximum
   80 karakterb“l  ll¢ karakterl nc. az elj r s sz ml lja meg,
   hogy h nyszor fordult el“ a karakterl ncban az '121'
   karaktersorozat. deklar lja a sz�ks‚ges konstansokat ‚s
   t¡pusokat! v lasszon megfelel“ param‚tereket! glob lis
   v ltoz¢kat nem haszn lhat!
(* ____________________________________________________________ *)
(* 3. feladat

   irjon teljes programot, amely ki¡rja, hogy a standard inputon
   beolvasott sz”veg leghosszabb szava h ny bet–b“l  ll!
   sz¢nak tekint�nk minden, csak bet–kb“l  ll¢ karaktersorozatot,
   amelyet sz¢k”z, vagy sor-v‚ge karakter hat rol.
   vegy�k £gy, hogy a kis- ‚s nagybet–k is folytonos sorozatot
   alkotnak.                                                    *)
(* ============================================================
   r‚szpontsz mok:  1.x. egyenk‚nt 1-1 pont (6 pont)
                    2.   3 pont
                    3.   3 pont

   60 %-os teljes¡t‚s: 7.2 pont

   nagyobb, vagy egyenl“ mint 60% eset‚n ez eddig el‚gs‚ges.
   ============================================================ *)
(* 4. feladat   (1 pont)

   adott egy bin ris fa a k”vetkez“ adatt¡pusokkal:

   type
      nevtip = packed array[1..20] of char;
      mutato = ^adat;
      adat   = record
                  nev       : nevtip;
                  bal,jobb  : mutato;
               end;

   irjon egy f�ggv‚nyt, amelynek visszaadott ‚rt‚ke megadja,
   hogy a bin ris f ban mennyi olyan 'nev' van, amely illeszkedik
   egy megadott maszkra. az illeszked‚s azt jelenti, hogy a
   maszkban el“fordul¢ '?' joker karakter mindent helyettes¡thet,
   a t”bbi karakter megegyezik a maszk megfelel“ karakter‚vel.
   p‚ld ul, ha a maszk 'al??fa              '
   akkor illeszkedik:             nem illeszkedik:
      'almafa              '      'alma                '
      'alomfa              '      'almafa      x       '
   a f�ggv‚ny bemeneti param‚tere a bin ris fa gy”k‚r-eleme,
   valamint a maszk.
   v lasszon megfelel“ param‚terlist t! glob lis v ltoz¢kat
   nem haszn lhat!                                              *)
(* ____________________________________________________________ *)
(* 5. feladat   (1 pont)

   irjon programot, amely megsz molja, ‚s ki¡rja azokat
   a h romjegy– sz mokat, amelyekre teljes�l a k”vetkez“
   k‚t felt‚tel:
      a) sz mjegyeik k�l”nb”z“ek
      b) k‚tszeres�k h romjegy–, ‚s annak sz mjegyei is k�l”nb”z“ek
   a sz mban ‚s k‚tszeres‚ben el“fordulhatnak ugyanazok
   a sz mjegyek. a program ¡rja ki a felt‚teleknek eleget
   tev“ sz mok sz m t is!                                       *)
(* ____________________________________________________________ *)
(* 6. feladat   (2 pont)

   adott egy m trix a k”vetkez“ t¡pussal:

   type
      sor    = array[1..n] of integer;
      matrix = array[1..n] of sor;

   a m trix minden eleme k�l”nb”z“ pozit¡v eg‚sz sz m.
   irjon egy elj r st, amely £gy rendezi  t a m trix sorait,
   hogy a f“ tl¢ elemei n”vekv“ sorrendben legyenek.
   v lasszon megfelel“ param‚terlist t! glob lis v ltoz¢kat
   nem haszn lhat!

   pld. rendez‚s el“tt:           ( n=3 )

                    ³  9  8  6 ³
                    ³ 12  3 14 ³
                    ³  4  2  1 ³

        rendez‚s ut n:

                    ³  4  2  1 ³
                    ³  9  8  6 ³
                    ³ 12  3 14 ³
                                                                *)
end.