$e
====================================== 1986.jan.20 =======
1/a. for e1:=3 to 5 do
     begin
       for e2:=-2 to 2 do
         if e2<>0 then write(e1 div e2, e1 mod e2);
       writeln;
     end;
     ----------------------------------------------------
1/b. e1:=0;
     while not eof do
     begin
       readln(e2);
       if e2 in (.1..4.) then e1:=e1+e2;
     end;
     writeln(e1);

     a bemeneti adatok: (a ! jel eoln-t, a # pedig eof-et
     jelent.)
     !9  1!  4  3  !  +2  +1!#
     ----------------------------------------------------
1/c. for e1:=1 to 10 do t1(.e1.):=10;
     for l1:=alberlet to foberlet do
       t1(.succ(ord(l1)).):=3;
     for e1:=1 to 5 do write (t1(.e1.));
     ----------------------------------------------------
1/d. e1:=5;   e2:=6;   s(e1,e2);
     if f(e1,e2) then writeln(e1) else writeln(e2);
     ----------------------------------------------------
1/e. new(m1);  m1@.lanc:=nil; m1@.kulcs:=2;
     new(m2);  m2@.lanc:=m1;  m2@.kulcs:=4;
     new(m3);  m3@:=m2@;  m1:=m3;  e1:=0;
     repeat e1:=e1+m1@.kulcs; m1:=m1@.lanc;
     until m1=nil;
     writeln (e1);
     ----------------------------------------------------
1/f. write(' '); ch1:=chr(succ(ord(succ('0'))));
     e1:=0;
     for ch2:=ch1 to '5' do e1:=succ(e1);
     writeln(e1);
     ----------------------------------------------------
1/g. h1:=(.1,3..5,7.); h2:=(..);
     for e1:=1 to 10 do
       if e1 in h1-h2 then h2:=h2+(.e1+2.);
     for e1:=1 to 30 do if e1 in h1*h2 then write(e1);
_________________________________________________________
      ,
megoldas:
a.  -1  1 -3  0  3  0  1  1
    -2  0 -4  0  4  0  2  1
    -2  1 -5  0  5  0  2  1

b.   6

c.   3  3  3  10  10

d.   6  0  0
     0

e.   6

f.   4

g.   3  7
_________________________________________________________
    ,  ,                         ,      , ,,  ,
2. keszitsen programot, amely a mar meglevo a es b file-ok
        , ,   ,    ,                                ,,
   egyesitesekent letrehozza a c file-t, melynek elso
    ,            ,       ,
   resze a-val, masodik resze pedig b-vel egyezik meg.
                       ,
   mindegyik file elemtipusa real.
_________________________________________________________
    ,  ,        , ,            ,           ,    ,
3. keszitsen eljarast, amely kiirja a parameterkent kapott
     ,     ,   ..   ,    ,,        , ,
   egesz szam torzstenyezos felbontasat. pl.: 20=2*2*5
===========================================================
   ,                                     ..
4. irjon programot, amely kinyomtatja az osszes olyan
    ,      ,,     ,    ,     ,                        ,
   negyjegyu pozitiv egesz szamot, amelyben pontosan ket
    .... ..,,  ,               ,,
   kulonbozo szamjegy fordul elo.
_________________________________________________________
   ,                           ,,     ,
5. irjon programot, amely bemeno adatkent kap egy
        ,,            ,                    ,
   tetszolegesen hosszu karaktersorozatot, es kinyomtatja
          ..,  ,,        ,
   ennek kozepso karakteret.
             ,
      (a sorvege jeleket nem kell figyelembe venni. ha a
                                                   ..,  ,,
   sorozatban n karakter van, akkor n div 2-dik a kozepso,
     ,  , ,                    ..   ,,
   n erteket azonban nem ismerjuk elore.)
_________________________________________________________
          ,                            ,   ,  ..
6. adott ket tt=array(.1..n.) of real tipusu tombben egy
    ..  ,                       ..         ,   ,    ,  ,
   fuggveny bizonyos pontjainak osszetartozo x es y erteke,
             ..   ,,           ,       ,            ,,
   ahol x a novekvo indexek fele szigoruan monoton no, tt
    ,                              ,        ,
   tipus illetve n konstans pedig mar definialva van.
           ,      ..  ,                        ,,
     deklaraljon fuggvenyt, amely megadja tetszoleges v
                       ..  ,    ..  , ,,,  , ,  ,
   pontban az eredeti fuggveny kozelito erteket ugy, hogy
      ..  ,     ,        ,          ....
   a fuggvenyt ket szomszedos pont kozott egyenessel
    ..  ,  ..
   kozelitjuk.
                  ,,  ,  ,    ,              ,   ,
     ha v a legelso x ertek ele vagy az utolso utan esik,
                ,
   jelezze a hibat]
        ..  ,      ..   ,               ,               ..
     a fuggveny a kulvilaggal csak parametereken keresztul
           ,       ,                ,,     ,
   kommunikalhat] valasszon megfelelo parametereket]