========= sz�m�t�g�pek programoz�sa ====== 1986.dec.17 ======


1.  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.  e1:=6;  e2:=2;
      for e1:=e1-1 downto e1-e2 do write(e1,e2);
      writeln;

  b.  e1:=0;  ch1:='2';  ch2:='7';
      repeat
        e1:=e1+ord(ch2)-ord(ch1);
        ch1:=succ(ch1);  ch2:=pred(ch2);
      until  ch1>ch2;
      writeln(e1);









  c.  for e1:=1 to 3 do
      begin  t1[e1]:=e1;  t1[2*e1]:=-e1;  end;
      t1[5]:=0;
      for e1:=1 to 6 do
        for e2:=1 to 6-e1 do
          if t1[e2]>t1[e2+1] then
          begin e3:=t1[e2];  t1[e2]:=t1[e2+1];
                t1[e2+1]:=e3;
          end;
      for e1:=1 to 6 do write(t1[e1]);

  d.  with rect[1] do
      begin  nev:='ab';  suly:=1;  end;
      with rect[2] do
      begin  nev:='cd';  suly:=7;  end;
      with rect[3] do
      begin  nev:='aa';  suly:=10; end;
      if rect[1].nev>rect[2].nev then
        writeln(rect[1].suly/10)
      else if rect[2].nev<rect[3].nev then
             writeln(rect[2].suly/14)
           else writeln(rect[3].suly/30*120);

  e.  m1:=nil;
      for e1:=1 to 3 do
      begin
        new(m2);  with m2^do
        begin  kulcs:=e1;  lanc:=m1;
          if m1=nil then m3:=m2;
          m1:=m2;
        end;
      end;
      m3^.lanc:=m2;
      e1:=0;
      while e1<7 do
      begin  e1:=e1+m1^.kulcs;  m1:=m1^.lanc;  end;
      writeln(e1);

  f.  e1:=6;  e2:=2;
      repeat  s(e1,e2+2);
              writeln(e1,e2);
      until f(e1,e2);

  g.  h1:=[1,5..8,12..2,16..20];
      h2:=[6,8,10,12,14];
      for e1:=1 to 30 do
        if e1 in h1*h2 then write(e1);
      writeln;
-----------------------------------------------------
2. irjon teljes programot, mely egy teljes text
   t�pus� file tartalm�t a sz�k�z�k kiv�tel�vel
   �tm�solja egy m�sik file-ba. a file egy�b
   szerkezete nem v�ltozhat!
-----------------------------------------------------
3. deklar�ljon f�ggv�nyt,mely megadja a param�terk�nt
   kapott 3 sz�mr�l, hogy lehetnek-e egy h�romsz�g
   oldalai.
   nem haszn�lhat glob�lis v�ltoz�t.

=====================================================












4.a. defini�ljon egy sakkt�bla �ll�s�nak le�r�s�ra
     alkalmas tabla t�mbt�pust!
  b. irjon elj�r�st,mely egy ilyen t�bl�t m�dos�t
     egy sakkl�p�snek megfelel�en.
     a bemeneti adatok:a l�p�s kezdeti �s v�gpoz�ci�ja
     �s a t�bla jelenlegi �ll�sa.
         az elj�r�s jelezze, hogy volt-e �t�s.
     az elj�r�s a k�lvil�ggal kiz�r�lag param�tereken
     kereszt�l cser�lhet adatokat.
     nem kell ellen�rizni, hogy a l�p�s a sakkj�t�k
     szab�lyainak megfelel-e.
------------------------------------------------------
5.  k�sz�tsen teljes programot, mely beolvassa legfeljebb
    100 ember max. 30 karakteres nev�t �s �letkor�t,
    rendezi ezt n�vekv� �letkor szerint, majd 3
    oszlopban kilist�zza �gy, hogy a kor szerint egym�s
    ut�n k�vetkez� emberek nevei egym�s alatt legyenek.

    pl.
      waba ubul    6      t�th menyh�rt 31     vida elek   66
      fa feernc    8      bakos b�la    33     forg� �va   68
      h� k�roly   12      t�th tibnor   41     s�s simon   71

         ...                 ...                  ...