{************ besz mol˘ --- 1989. dec. 18 ************ v89c18.pas }

-----------------------------------------------------------

1)
a)  e1:=3;  e2:=5;
    for e1:=e1+1 to e2+2 do
    begin
      e2:=e2-1;
      writeln(e1 +2 mod e2 :3,e2:3);
    end;


b)
    h1:=[1..30];  h2:=[30..1];
    h3:=[1..5,7..9,12..19];
    h1:=h1-h2-h3;
    for e1:=6 to 12 do
      if e1 in h1 then write(e1)  else write('  e1');


c)
    e1:=10;  m1:=nil;
    repeat  new(m2);
      with m2^ do begin  kulcs:=e1;  lanc:=m1;  end;
      m1:=m2;  e1:=e1-2;
    until e1<=0;
    m3:=m2;
    while m2<>nil do  begin
      m1:=m2;  m2:=m2^.lanc;  end;
    m1^:=m3^;
    for e1:=1 to 6 do
      with m3^ do begin  writeln(kulcs);  m3:=lanc;  end;


d)
    e1:=4;  e2:=succ(e1);
    s(e1,3*ord(f(e1,e2)));
    writeln(e1,e2);


e)
    for e1:=1 to 2 do
      for l1:=tarsberlet to pred(orok) do
        t2[e1,ord(l1)]:=e1>ord(l1);
    writeln(t2[1,1],t2[1,2],t2[2,1]);
    writeln(t2[2,2]);


f)  readln(ch1,e1,v1);   writeln(ch1,e1:5,v1:10:3);
    readln(e2,ch2,ch1,v2);   writeln(e2:5,v2:10:3);
    read(ch3);           write(ch3);

    adatok  (itt > a sor elej‚t, < a sorv‚ge jelet jelet jelenti)

    >36 36<
    > -3 -3<
    >.,.,<

--------------------------------------------------------------------


2)  adott k‚t polinom val˘s egytthat˘ival, melyek egy-egy t”mbben
    vannak. rjon elj r st, mely meghat rozza a k‚t polinom
    szorzatak‚nt kapott polinom egytthat˘it!
    v lasszon megfelel“ adattĄpusokat, nem haszn lhat glob lis
    v ltoz˘t!

    p‚lda max. ”t”dfokŁ polinom egytthat˘kkal val˘ megad s ra:
              3
          4.6x +x-5.3      :      0  0  4.6  0  1 -5.3


3)  k‚szĄtsen programot, amely megadja, hogy az eof-ig beolvasott
    val˘s sz mok k”zl a leghosszabb n”vekv“ sz msorozat ”sszege
    mennyi!
    n”vekv“ sz msorozatnak az olyan egym st k”zvetlenl k”vet“
    sz mokat nevezzk, melyben:

              a  < a  <  ...  < a  < a
               j    k            l    m

---------------------- itt a minimum v‚ge ------------------------

4)  k‚szĄtsen fggv‚nyt, amely megadja azt a pointer ‚rt‚ket,
    mely egy l ncolt list nak h tulr˘l az n-edik elem‚re mutat,
    vagy ha ilyen nincs, akkor nil ‚rt‚k–.
    defini lja a megfelel“ adattĄpusokat, nem haszn lhat glob lis
    v ltoz˘t!


5)  k‚szĄtsen elj r st, amely egy eg‚szekb˘l  ll˘ t”mb elemeit
    10 oszlopba rendezve kiĄrja, az oszlopokban az egym st
    k”vet“ elemek legyenek!
    pl. ha a t”mb tartalma rendre  1  2  3  4  5  ...  27  28
    akkor a kiĄr s:

        1     4     7    10    13    16    19    22    25    28
        2     5     8    11    14    17    20    23    26
        3     6     9    12    15    18    21    24    27

    defini lja a megfelel“ adattĄpusokat, nem haszn lhat glob lis
    v ltoz˘t!


6)  rjon teljes programot, amely a bemeneti  llom nyt
    kiĄrja a kimenetre, de minden sor el‚ kiĄrja a sor sz m t
    is, 5 karakteren:

        1 els“ sor
        2 m sodik
        ...
      384 ...
      385 stb.