{================= sz m¡t¢g‚pek programoz sa vizsga ================
                           1990. febr. 9            file: v_900209.


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
         e1:=3;  e3:=0;
         for e2:=pred(e1) to succ(succ(e1+1)) do
           if e2 in (.e1..e1+2.) then e3:=e3+e2;
         writeln(e3);

 1.b
         e3:=0;
         for l1:=alberlet to kastely do
         begin
           e2:=0;
           repeat   e2:=e2+2;
           until e2>=ord(l1);
           e3:=e3+e2;
         end;
         writeln(e3);

 1.c
         e1:=1;
         repeat
           e2:=1;
           repeat
             t2(.e1,e2.):=e1+e2>2;
             e2:=succ(e2);
           until e2>2;
           e1:=succ(e1);
         until e1>2;
         for e1:=1 to 2 do
         begin
           writeln;
           for e2:=1 to 2 do
             write(t2(.e1,e2.):6);
         end;

 1.d
         e1:=3; e2:=4;
         if f(e2-e1,e1) then s(e1,2*e1) else s(e2,e2);

 1.e
        new(m1);  m1^.kulcs:=5;  new(m2);  m2^.kulcs:=7;
        m1^.lanc:=m2;   m2^.lanc:=m1;  e1:=0;
        while e1<13 do   begin
          e1:=e1+m1^.kulcs;
          m1:=m1^.lanc;
        end;
        writeln(e1);

 1.f
        read(e1,v1,ch2,ch1);     writeln(e1:5, v1:10,'>',ch1,'<');
        readln(v2,ch2,v1);       writeln(v1:6:2, '>',ch2,'<', v2:6:2);

      adatok:  (itt _  sz¢k”zt, | sorv‚ge jelet jelent) :

        1_2_3|
        4_5_6|


--------------------------------------------------------------
 2
      k‚sz¡tsen teljes programot, amely min‚l gyorsabb
      m¢dszerrel meghat rozza ‚s ki¡rja az els“ 1000 sz m k”z�l
      a pr¡meket!

--------------------------------------------------------------
 3
      k‚sz¡tsen teljes programot, amely a szabv nyos bemeneti
       llom ny tartalm t £gy ¡rja ki a szabv nyos kimenetre,
      hogy abban csak a mondatok els“ bet–je legyen nagybet–,
      a t”bbi kicsi, a sz”veg sor-szerkezete ne v ltozzon!
      felt‚telezz�k, hogy a bet–k k”z”tt nincsenek m s
      karakterek. a mondatok v‚g‚n . vagy ? vagy !  ll.


===================== eddig tart a minimum =====================
 4
      k‚sz¡tsen programot, amely ki¡rja azokat a pithagorasi
      sz mh rmasokat, amelyek egyik eleme sem nagyobb
      n -n‚l, n bemeneti adat.
      a pithagorasi sz mh rmasok olyan a, b, c eg‚sz sz mok,
      melyekre  a*a + b*b = c*c
      t”rekedjen a lehet“ leggyorsabb megold sra!

--------------------------------------------------------------
 5
      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!


--------------------------------------------------------------
 6
      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!