{================= sz m¡t¢g‚pek programoz sa ================
                           1990.10.18.        } program vizsga;{

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/a.  e1:=3;  e2:=5;
      for e1:=e1+1 to e2+2 do  begin
        e2:=e2-1;
        writeln(e1+2 mod e2:3,e2:3);
      end;


1/b.  e2:=4;
      for ch1:='6' downto '2' do  begin
        e1:=(ord(ch1)-ord('0')) mod 3 +1;
        t1[e1]:=e2;  e2:=e1;
      end;
      writeln(e2:3,  t1[e2]:3);


1/c.  h1:=[];  e1:=3;  e2:=2;
      while e2<7 do  begin
        if e1 in h1 then  e1:=e1-2
                    else  h1:=h1+[succ(e1)];
        h1:=h1+[e2+1];
        e2:=e1+e2;
      end;
      for e1:=1 to 9 do
        if e1 in h1 then  else  write(e1:3);

1/d.  new(m1);  m1^.lanc:=nil;  m1^.kulcs:=5;
      for e1:=1 to 4 do  begin
        m2:=m1;
        while m2^.lanc <> nil do m2:=m2^.lanc;
        new(m3);  m3^:=m2^;  m2^.kulcs:=e1;  m2^.lanc:=m3;
      end;
      m3^.lanc:=m1^.lanc^.lanc;
      for e1:=1 to 9 do  begin
        write(m1^.kulcs:3);  m1:=m1^.lanc;
      end;

1/e.  e1:=8;  e2:=3;
      while e1>0 do s(e1,e2);


1/f.  readln(ch1,v1,e1,ch2);
      while not eoln do  begin
        read(ch3);  write(ch3);
      end;
      writeln(ch1,ch2);
      writeln(v1:10,e1:3);

      bemeneti adatok: ("³" :sor eleje ill. £jsor jel,  "_" :sz¢k”z)
         ³1_2_³
         ³34_e-5³
         ³67_8_9ab³
         ³cde_f³

--------------------------------------------------------------------
2.  irjon elj r st, amely k‚t, param‚terben kapott t”rt ”sszeg‚t
    egyszer–s¡tve adja vissza a harmadik param‚terben, ha

    type

      tort=record
             szamlalo:integer;
             nevezo:integer
           end;

---------------------------------------------------------------------
3.   k‚sz¡tsen programot, amely a tant rgyakr¢l beolvasott inform ci¢
     alapj n elk‚sz¡ti ‚s ki¡rja a heti ¢rarendet.

     az input egy-egy sor nak szerkezete a k”vetkez“:

       tant rgy neve   (t”bb sz¢ is lehet)
       :               (kett“spont)
       el“ad s napja sz mmal  (h‚tf“=1 - p‚ntek=5)
       kezdete         (h nyadik tan¢ra)
       hossza          (h ny tan¢ra)
       gyakorlat napja
       kezdete
       hossza

     az output fejl‚cb“l (a h‚t napjai) ‚s t bl zatb¢l  lljon,
     keretez‚st rajzolni nem kell.

====================== eddig tart a minimum ==========================

4.   �rgjon teljes programot, amely az 1...16 tartom nyban lev“
     mind a 16 sz mot elhelyezi egy 4*4 -es mez“ben, ‚s ki¡rja £gy,
     hogy minden sor, oszlop ‚s mindket atlo osszege azonos legyen!
     el‚g egyetlen megold st tal lni.

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

5.   irjon teljes programot, amely a beolvasott max 1000 jegy–
     pozit¡v decim lis eg‚sz sz mot ki¡rja bin ris form ban!
     �rja le a m¢dszer‚t is!

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

6.   adott:   type
                elem = record
                         kulcs :real;
                         <tov bbi mez“k>
                       end;
                tomb = array [1..max] of elem;
                ft = file of tomb;

     k‚sz¡tend“ egy teljes program, amely rendezi egy ft t¡pus£
     f jl tartalm t a kulcs szerint n”vekv“ sorrendbe,
     a lehet“ legkevesebb beolvas si-ki¡r si m–velettel!
       el“sz”r r‚szletesen adja meg az elgoritmus t, a megold s t
     csak ennek ismeret‚ben ‚rt‚kelj�k.



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