program vizsga;

{================= programoz s ‚s probl‚mamegold s ================
                              1988. jan. 28.

meg kell  llapĄtani, hogy az al bbi programr‚szek hat s ra
mi fog kiĄr˘dni. az is fontos, hogy mi kerl Łj sorba.

{-------------------------------------------------------
1.a}   e1:=2;  e2:=6;
       for e3:=succ(e1)  to  pred(e2) do
          if e3 mod 2=0 then writeln(e3);
       writeln(pred(e2));

{-------------------------------------------------------
  b}   h1:=[1..15];  h2:=[1..30];   h3:=h2-h1;
       for e1:=17 to 22 do
         if e1 in h3 then
           if e1 in h1 then  writeln('h1')
                       else  writeln('h3');

{-------------------------------------------------------
  c}   new(m1);  m1^.lanc:=nil;  m1^.kulcs:=5;
       for e1:=1 to 4 do
         begin
           m2:=m1;
           while m2^.lanc<>nil do m2:=m2^.lanc;
           new(m3);  m3^:=m2^;  m2^.kulcs:=e1;  m2^.lanc:=m3;
         end;
       m3^.lanc:=m1^.lanc;
       for e1:=1 to 9 do
         begin
           write(m1^.kulcs);  m1:=m1^.lanc;
         end;

{-------------------------------------------------------
  d}  e1:=5;  e2:=6;  s(e1,e2);
      if f(e1,e2) then writeln(e1) else writeln(e2);

{-------------------------------------------------------
  e}  with rect[1] do
        begin  nev:='cc';  suly:=5;  end;
      with rect[2] do
        begin  nev:='cd';  suly:=7;  end;
      if rect[1].nev>rect[2].nev
      then writeln(rect[1].suly)
      else writeln(rect[2].suly);

{-------------------------------------------------------
  f}  e1:=3;  e2:=0;  b1:=e1<=e2;  t2[1,1]:=b1;
      t2[1,2]:=t2[1,1] or (e1 mod 2=1);
      t2[2,1]:=t2[1,1] and t2[1,2];
      t2[2,2]:=not t2[2,1] and t2[1,2];
      for e1:=1 to 2 do
        for e2:=1 to 2 do  write(t2[e1,e2]);

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

2}  rjon elj r st, amelynek form lis param‚tere egy
    10 elem–, char tĄpusŁ elemeket tartalmaz˘ t”mb.
    az elj r s rendezze  t a t”mb”t Łgy, hogy a sz mjegyek
    az elej‚re kerljenek. pl.:

    a b 1 c 7 9 d 3 5 f  --->  1 7 9 3 5 a b c d f

    a sz mjegyeket ‚s a bet–ket sem kell sorba rakni, csak
    az a l‚nyeg, hogy a t”bbi karaktert“l elkl”nljenek.

-------------------------------------------------------
3}  k‚szĄtend“ egy teljes program, amely beolvas egy
    eg‚sz sz mot ‚s kinyomtatja a n‚gyzet‚t Łgy, hogy
    a sz mjegyek k”z”tt mindentt kihagy egy-egy sz˘k”zt.

    pl. ha a beolvasott sz m 12, akkor az eredm‚ny:  1 4 4

==========================================================
4}  k‚szĄtsen fggv‚nyt, amely meghat rozza az

          n!
     __________
     k!  (n-k)!

     ‚rt‚k‚t,  ahol n! az n faktori lis t jelenti.
     nem haszn lhat globl is v ltoz˘kat.
     v lasszon megfelel“ param‚tereket!

-------------------------------------------------------
5}  adottak a k”vetkez“ definĄci˘k:
    type  ptr =^rt;
          rt =record
                kulcs :char;
                tartalom : ...  ;
                kov :ptr;
              end;

     rjon elj r st, amely ilyen elemekb“l  ll˘, adott
     kezd“pointer– l ncb˘l kikeresi az adott kulcsŁakat
     ‚s ezek tartalm val l‚trehoz egy m sik l ncot, az
     eredetit nem v ltoztatja meg.
     nem haszn lhat glob lis v ltoz˘kat.

--------------------------------------------------------
6}  adott k‚t  tt=array [1..n] of real  tĄpusŁ t”mbben
    egy fggv‚ny bizonyos pontajainak ”sszetartoz˘ x ‚s
    y ‚rt‚ke, ahol x a n”vekv“ indexek fel‚ szigorŁan
    monoton n“, tt tĄpus illetve n konstans pedig m r
    defini lva van.
       deklar ljon fggv‚nyt, amely megadja tetsz“leges
    v 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.
    ha v a legels“ x ‚rt‚k el‚, vagy az utols˘ ut n
    esik, jelezze a hib t!
    a fggv‚ny a klvil ggal csak param‚tereken keresztl
    kommunik lhat. v lasszon megfelel“ param‚tereket!