{=== Programoz s alapjai === Vizsga - 1999. 1. 20. === V-990120.txt

Minden sz mozott feladat megold s t kl”n lapra Ąrja!
Minden lapnak csak az egyik fel‚re Ąrhat.
Minden lap tetej‚re Ąrja fel balra a feladat sz m t,
jobbra a nev‚t ‚s k˘dj t!
A megold shoz haszn lhat bels“ elj r sokat ‚s fggv‚nyeket, de csak ezek
haszn lhatnak glob lis v ltoz˘t, a feladatk‚nt kapott elj r sok
illetve fggv‚nyek nem.

---------------------------------------------------------------------------
1.                                                             [ 1-1 pont ]
Adja meg, hogy mit Ąr ki az al bbi program!
Az is fontos, hogy mi kerl Łj sorba. Csak a v‚gleges megold st adja be!
Program P1;

< l sd: V-Def.pas >

BEGIN

writeln ('A -------------------');
     h1:=[0..4,7..9];   h2:=[4..7,14];
     h3:=h1*h2;
     h1:=[5,17];
     for e1:=1 to 30 do
       if e1 in h3-h1 then write (e1:3);
     writeln;

writeln ('B -------------------');
     new(m3);  with m3^ do  kulcs:=3;
     new(m1);  with m1^ do begin
       kulcs:=1;  new(lanc);  lanc^.kulcs:=4;  lanc^.lanc:=m3;  end;
     new(m2);  with m2^ do begin
       kulcs:=2;  new(lanc);  lanc^.kulcs:=5;  lanc^.lanc:=m1^.lanc;  end;
     m3^.lanc:=m2^.lanc;
     for e1:=1 to 4 do begin
       with m1^ do begin  write   (kulcs:3);  m1:=lanc;  end;
       with m2^ do begin  writeln (kulcs:3);  m2:=lanc;  end;
     end;

writeln ('C -------------------');
     for e1:=1 to 3 do  with rect[e1] do begin
       nev[1]:=chr(ord('0') + e1);
       for e2:=1 to e1+1 do nev[2]:=succ(nev[1]);
       suly:=e1;
     end;
     e1:=2;
     for e1:=e1-1 to e1+1 do  write(rect[e1].nev[1] :3);
     writeln;

writeln ('D -------------------');
     e1:=8;  e2:=8;
     s(e1,e2-1);
     writeln (e1:3, e2:3);

END.

--------------------------------------------------------------------------
2.                                                              [ 2 pont ]

K‚szĄtsen nem-rekurzĄv fggv‚nyt, mely ugyanazt az eredm‚nyt adja,
mint a k”vetkez“:

  function Csebi (n :integer;  x :real) :real;  {Csebisev polinom}
    begin
      if n=0 then Csebi:=1  else
      if n=1 then Csebi:=x  else
      Csebi := 2*x*Csebi(n-1, x) - Csebi(n-2, x);
    end;

--------------------------------------------------------------------------
3.                                                              [ 2 pont ]

Adottak a k”vetkez“ definĄci˘k:

   const M= 101;
   type  szam =record  ert   :array [1..M] of integer;
                       hossz :integer;
               end;
Itt ert els“ hossz eleme egy legfeljebb 100 jegy– decim lis sz m
sz mjegyeit tartalmazza: ert[1] az egyeseket, ert[2] a tĄzeseket, stb.,
ert[hossz] a legnagyobb helyi‚rt‚k– jegyet, a t”bbi t”mbelem hat rozatlan.
K‚szĄtsen elj r st, amely kisz mĄtja k‚t ilyen sz m ”sszeg‚t!

============================ BEUGR• VGE =================================
4.                                                              [ 2 pont ]

K‚szĄtsen programot, mely beolvas egy hibahat rt, majd legfeljebb 10
pozitĄv val˘s (!!!) sz mot, ‚s meghat rozza azok legnagyobb k”z”s oszt˘j t,
azaz azt a val˘s sz mot, melynek mindegyik beolvasott sz m a t”bbsz”r”se,
legfeljebb a hibahat r  ltal adott elt‚r‚ssel.

--------------------------------------------------------------------------
5.                                                              [ 2 pont ]

K‚szĄtsen programot, amely a szabv nyos inputr˘l beolvas k‚t,
legfeljebb 100 jegy–, el“jel n‚lkli, decim lis eg‚sz sz mot, majd
kiĄrja ezek ”sszeg‚t!
Felhaszn lhatja a 3. feladat megold sak‚nt kapott elj r st akkor is,
ha azt nem Ąrta meg.