{================= sz mĄt˘g‚pek programoz sa ================
                           1989. 12. 20.
{-------------------------------------------------------
 1/a}  e1:=22;  e2:=4;
       while e1>1 do s(e1,e2);
       writeln(e1,' ',e2);
       writeln;

{-------------------------------------------------------
 1/b}   h1:=[1..5,7,9]; h2:=[4..7,15];
        h3:=h1-h2;    h1:=[5,6,7];
        if h1 <>h3 then
              for e1:=1 to 22 do
              if e1 in h3 then writeln(e1);
        writeln;
{-------------------------------------------------------
 1/c}   new(m1);  m1^.lanc:=nil;  m1^.kulcs:=1;
       for e1:=2 to 5 do
         begin
           m2:=m1;
           new(m3);  m3^:=m2^;  m2^.kulcs:=e1;  m2^.lanc:=m3;
         end;
       m3^.lanc:=m2;
       for e1:=1 to 6 do
         begin
         write(m1^.kulcs mod 2:3);  m1:=m1^.lanc;
         end;
       writeln;
       writeln;
{-------------------------------------------------------
 1/d}  ch1:=chr(2);  e2:=6;
       for e3:=ord(ch1)  to  pred(e2) do
            if e3 mod 2=0 then writeln(e3);
       writeln(succ(e2)); writeln;
{-------------------------------------------------------
 1/e}
       for e1:=1 to 3 do
       with rect[e1] do begin nev:='e1'; suly:=2*e1; end;
       for e1:=2 to 3 do
       for e2:=1 to 2 do
       if ord(rect[e2].suly) < ord(rect[e1].suly) then
                   writeln(rect[e2].suly);
       writeln;
{-------------------------------------------------------
  1/f} l1:=alberlet;
       for e1:=1 to 8 do
           t1[e1]:=e1;
       e1:=8;
       while e1>=succ(ord(l1)) do
           begin
           t1[e1]:=ord(l1);
           l1:=succ(l1);
           e1:=e1-1;
           end;
       for e1:=1 to 8 do
           write(t1[e1]:3);
       read(e1);
{-------------------------------------------------------
  2.
       deklar ljon fggv‚nyt, amely koordin tapontjaival
   megadott 3 pont-r˘l (x1,x2,x3,y1,y2,y3) eld”nti, hogy
   egy egyenesbe esnek-e?
       a fggv‚ny nem haszn lhat glob lis v ltoz˘kat!
--------------------------------------------------------
  3.
       deklar ljon elj r st, amely k‚t 6 jegy– eg‚sz sz m
  maszk-j nak ‚rt‚k‚t adja meg! a bemeneti param‚ter a k‚t
  eg‚sz sz m. kimeneti param‚ter, a maszk ‚rt‚ke.
       k‚t sz m maszkj nak az ‚rt‚ke az a sz m, amely meg-
  mutatja, hogy a k‚t sz m h ny helyi‚rt‚ken egyezik meg.
       pl1. 128 678 ‚s
            168 690 eset‚n a maszk ‚rt‚ke 3, mert
            1.8 6.. sz mjegyekben egyezik meg a k‚t sz m.
       pl2.       3 ‚s
                  4 eset‚n
             00000. a maszk. rt‚ke 5 !!!!
       az elj r s nem haszn lhat glob lis v ltoz˘kat!

***********************************************************
***ez a minimum vge ez a minimum vge ez a minimum vge***
***********************************************************
  5.
        irjon teljes programot, amely a szabv nyos input  llo-
  m nyb˘l beolvas egy tetsz“leges sorhosszŁs gŁ ‚s tetsz“le-
  ges  sz mŁ  sorb˘l  ll˘ sz”veget  ‚s soronk‚nt, visszafel‚
  kinyomtatja!
         pl.       ez a sz™veg, (eoln)
                   amit fordtani kell! (eof)
         eredm‚ny: ,gev”zs a ze
                   !llek inatĄdrof tima
 ----------------------------------------------------------
  6.
        adott k‚t tt=array[1..n] of real tipusŁ t”mbben egy
  fggv‚ny bizonyos pontjainak ”sszetartoz˘ x ‚s  y  ‚rt‚ke,
  ahol x a n”vekv“ indexek fel‚ szigorŁan monoton n“.
       deklar ljon  4 db fggv‚nyt:
       a):  amely, megadja  tetsz“leges  pontban  az  eredeti
            fggv‚ny k”zelĄt“  ‚rt‚k‚t Łgy, hogy a fggv‚nyt
            k‚t szomsz‚dos pont k”z”tt egyenessel k”zelĄtjk.

       b):  amely, a k‚t v‚gpont k”z”tt kisz mĄtja a fggv‚ny
            inegr ltj t, trap‚z m˘dszerrel!

       c):  amely, a k‚t  szomsz‚dos pont k”z”tt egyenessel
            k”zelĄtett  fggv‚nyt, sornyomtat˘n grafikusan
             br zolja! a sornyomtat˘ egy sorba maximum 132
            karaktert  k‚pes  nyomtatni.  az  x  l‚p‚sk”ze
            constansban van megadva. az  bra mell‚ Ąrja ki
            az x ‚s y ‚rt‚k‚t is! a tengelyeket  nem  kell
             br zolni!
            az  bra egy r‚szlete:
              x     y
             1.0  3.0000       *
             1.1  3.3000        *
             1.2  3.6200         *
             1.3  3.9800          *    stb.

       d):  amely, kisz mĄtja, a k‚t  szomsz‚dos pont k”z”tt
            egyenessel k”zelĄtett, fggv‚ny  deriv ltfggv‚-
            ny‚t!

       a fggv‚nyek glob lis v ltoz˘t mem haszn lhatnak!