program vizsga;

{================= sz mĄt˘g‚pek programoz sa vizsga ================
                              1990. jan. 3.

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}    for e1:=-3 div 2  to  33 mod 13 do
          if odd (e1) then write(e1+1:3);
{-------------------------------------------------------
  b}    h1:=[1..12];
        for e1:=6 to 11 do
          h1:=h1-[e1]+[2*e1];
        for e1:=1 to 30 do
        begin
          if e1 in h1 then write(e1-2:3);
          if e1 mod 10 =0 then writeln;
        end;
{-------------------------------------------------------
  c}  m1:=nil;  m3:=nil;
      for e2:=1 to 3 do
      begin
        new (m2);  m2^.kulcs:=e2+2;
        if m1=nil then m1:=m2;
        m2^.lanc:=m3;
        m3:=m2;
      end;
      m1^.lanc:=m2;
      for e1:=1 to 5 do
      begin  write(m1^.kulcs:3);  m1:=m1^.lanc;  end;
{-------------------------------------------------------
  d}  e1:=5;  e2:=6;  s(e1,e2);
      if f(e1,e2) then writeln(e1:3) else writeln(e2:3);
{-------------------------------------------------------
  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]:8);
{-------------------------------------------------------

2)  adott k‚t, eg‚szekb“l  ll˘ f jl: f1 ‚s f2.
    f1 tartalmazza mindazokat az adatokat, mint f2,
    ugyanolyan sorrendben, de ezek k”z‚ keverve
    tartalmazhat tov bbi adatokat is.  f1 minden adata
    kl”nb”z“.
    k‚szĄtend“ egy teljes program, amely el“ llĄtja
    azt az f3 f jlt, amely azokat az eg‚szeket tartalmazza,
    amelyeket f2 nem tartalmaz, de f1 igen.

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

3)  adottak az 1989-ben kihŁzott lott˘sz mok egy
    lt = array [1..52,1..5]    tĄpusŁ t”mbben.
    k‚szĄtsen elj r st, amely megadja a leggyakoribb 5 sz mot.
    (minden h‚ten 5 darab 1 ‚s 90 k”z”tti sz mot hŁznak ki.)
    v lasszon megfelel“ param‚tereket! ha kell, defini ljon
    tov bbi tĄpusokat. az elj r s nem haszn lhat glob lis v ltoz˘t.

================ eddig tart a minimum =================

4)  k‚szĄtsen elj r st, amely karakterekb“l  ll˘ grafikonnal
     br zol egy param‚terk‚nt  tvett, val˘s ‚rt‚k–, egyetlen
    val˘s v ltoz˘jŁ fggv‚nyt adott intervallumban, adott
    sz mŁ pontban!
      egy sorba legfeljebb 80 karakter kerlhet. az  br zol sn l
    t”rekedjen a lehet“ legjobb helykihszn l sra!
    a koordin tatengelyeket nem kell  br zolni.

    az  bra egy r‚szlete pl.:

        x           y
    2.100e+03   3.864e-02         *
    2.200e+03   4.235e-02           *
    2.300e+03   4.789e-02              *
    2.400e+03   5.456e-02                  *
    2.500e+03   6.235e-02                       *

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

5)  adott egy polinom az egytthat˘ival, p‚ld ul az
       2
    5 x  - 6.2 x  + 8  polinom egytthat˘i: 5   -6.2   8

    k‚szĄtsen programot, amely kiĄrja a bemeneti adatk‚nt
    kapott, legfeljebb tizedfokŁ polinom deriv ltj nak ‚s
    integr lj nak egytthat˘it!

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

6)  adott egy ember csal df ja olyan dinamikus adatszerkezettel,
    melynek egy eleme "elem":

    type
      mutato = ^elem;
      elem   = record
                 neve : packed array [1..30] of char;
                 apja, anyja :mutato;
                 jel  :boolean;
               end;

    ha valakinek valamelyik szl“j‚t nem adjuk meg, akkor
    n la a megfelel“ mutat˘ nil ‚rt‚k–.
    tudjuk, hogy indul skor minden elemben a "jel" mez“ ‚rt‚ke
    false, ezt a mez“t meg szabad v ltoztatni.
       deklar ljon fggv‚nyt, amely megadja, hogy ennek az
    embernek az “sei k”z”tt szletett-e gyerek rokon-h zass gb˘l,
    azaz olyan gyerek, akinek az anyja ‚s az apja is “se ennek
    az embernek!
    v lasszon megfelel“ param‚tereket! a fggv‚ny nem haszn lhat
    glob lis v ltoz˘t.
}end.