$e
=========================================== 1986.01.06 ====
1/a)  e1:=5;
      for e1:=e1-2 to e1+2 do write (e1);
      -----------------------------------------------------
  b)  e1:=6;  e2:=3;
      while e1<12 do
      begin
        repeat  e2:=succ(e2)  until e1 mod 3 = e2 mod 3;
        writeln (e1,e2);
        e1:=e1+e2 div 3;
      end;
      -----------------------------------------------------
  c)  e1:=0;
      for ch1:='0' to '9' do
        if ch1 in (.'2'..'4','7'.)
        then e1:=e1+ord(ch1)-ord('1');
      writeln(e1);
      -----------------------------------------------------
  d)  new(m1);  m1@.kulcs:=40;  m1@.lanc:=nil;
      repeat
        read (e1);  m2:=m1;
        while m2@.kulcs<e1 do m2:=m2@.lanc;
        new(m3);  m3@:=m2@;
        m2@.lanc:=m3;  m2@.kulcs:=e1;
      until e1=0;
      m2:=m1;
      while m2<>nil do
      begin
        write (m2@.kulcs);  m2:=m2@.lanc;
      end;

  bemeneti adatok:  5  3  4  0
      -----------------------------------------------------
  e)  h1:=(.1..10.);  h2:=(..);  e1:=2;
      while e1 in h1 do
      begin
        h2:=h2+(.e1..e1+2.);
        h1:=h1-(.e1.);
        e1:=(e1+3) mod 3 +1;
      end;
      for e1:=1 to 30 do  if e1 in h2 then write (e1);
      -----------------------------------------------------
  f)  e1:=11;  e2:=7;
      repeat  s(e1,e2);  writeln(e1,e2);  e1:=e1+2;
      until  e1<3;
      -----------------------------------------------------
  g)  readln (ch1,v1,v2);    writeln(' ',ch1,v1,v2);
      readln (ch1,ch2,ch3);  writeln(' ',ch1,ch2,ch3);
      read (e1);             writeln(e1);
                                      ,
 bemeneti adatok:  (a ! jel a sor elejet ill. az eoln karaktert
                    jelzi.)
!123e-2!
!7 ab!
! g!
!85 1!
!72!
-----------------------------------------------------------
$e
          ,
    megoldas:

a.    3   4   5

b.    6   6
      8   8
     10  10

c.   12

d.    0   3   4   5  40

e.    1   2   3   4   5

f.   12    1  -5
      1    7
      4    0   3
      0    7

g.    1   2.3e-1   7.0e0
      _g_
      72
-----------------------------------------------------------
     ,  ,    ,,                              ,  ,
2)  keszitendo egy teljes program, amely iteracioval
          ,                                  ..,        ,,
    meghatarozza az   x+ln(x) = 0 egyenlet gyoket, melyrol

    tudjuk, hogy a  (0...1)  intervallumban van.
        ..  , ,          ,
    a gyok kivant pontossaga bemeneti adat.
-----------------------------------------------------------
     ,  ,      ..  ,                 ,
3)  keszitsen fuggvenyt, amely meghatarozza
             n!            ,  , ,
    az  ---------------    erteket.
         k!  *  (n-k)!
                         ,           ,
    n!  (azaz: n faktorialis) jelentese:
                                    ,
    n! = 1*2*3* .... *(n-1)*n       es    0! = 1
             ,         ,     ,    ,
    nem hasznalhat globalis valtozokat.
     ,                ,,     ,
    valasszon megfelelo parametereket.

=============================================================
     ,  ,    ,,                                ,
4)  keszitendo egy teljes program, amely meghatarozza,
                ,           ,    ,    ,     ,   ,      ,,
    hogy a szabvanyos input allomany hany szazaleka betu,
                        ,,  ,     ,   ,      ,      ,
    valamint, hogy a betuk hany szazaleka maganhangzo.
                         , ,                    ,    ,
    (az eoln jelek nem szamitanak bele az input allomany
                                        ,,
     karaktereibe. csak az angol abc betuit kell tekintetbe
           ,          ..             ,,      ,
     venni es feltesszuk, hogy az betuk 'a'-tol 'z'-ig

     folytonos sorozatot alkotnak.)
-----------------------------------------------------------
$e
         ,            ,     ,                  ,     ,
5)  egy gepkocsi nyilvantarto programban a nyivantartas egy
         ,       ,          , ,  ,
    egyiranyban lancolt listabol all. egy-egy tulajdonoshoz a
     ..     ,,
    kovetkezo adatok tartoznak:
         ,
        nev
           ,
        lakohely
              ,
        rendszam
              ,
        kocsitipus
          ,
        szin
         ..
        kov
             ..      ..     ,,            ,
     ahol   kov   a kovetkezo elemre mutato pointer, a
             ..
     rekord tobbi eleme   str=packed array(.1..m.) of char
      ,   ,
     tipusu, m=30, konstans.
           ,,               ,,     ,,
     az elso elemre az  "elso"  nevu pointer mutat.

                   , ,             ,            ,     ,    ,
feladatok:  (az eljarasok nem hasznalhatnak globalis valtozot.)
            ,              ,,          ,       ,
5/a)  definialja a megfelelo konstanst es adattipusokat.
            ,        , ,
5/b)  deklaraljon eljarast, amely be tud olvasni egy
               ,              ,   ,  ,    ,
      karakterlancot egy str tipusu valtozoba.
              ,  ,                           , ,   ,  ..
      az olvasas alljon le akkor is, ha a sor vegere ertunk,
             ,   ,     ..          , ..
      a maradek reszt toltse fel szokozzel.
      ,        , ,                 ,         ,
5/c)  irjon eljarast, mely a rendszam ismereteben megkeresi
                      ,                      ,          ..
      az adott elemet es annak adatait magyarazattal egyutt
        ,
      kiirja. pl:       a tuljdonos neve:
                        lakcime         :
                          .... stb. ....
            , ,          ,,     ,
      az eljaras megfelelo parameterrel jelezze, hogy
            ,                     , ,    ,
      megtalalta-e az adott rendszamu autot, ha igen,
                  ,      ,
      adja meg a ra mutato pointert.
$e
                  ,      ,                              , ,
5/d)  mivel az auto a dunaba esett, ki kell venni a listabol.
       ,  ,        , ,             ,             .. , ,
      keszitsen eljarast, amely elvegzi az elem torleset,
                  ,               ,
      adott az auto adataira mutato pointer.