{==== Programtervez‚s ==== P˘tz rthelyi - 1997. 12. 5. ==== PZ971205.txt

Minden sz mozott feladat megold s t kl”n lapra Ąrja!
Minden lapnak csak az egyik fel‚re Ąrhat.
A lap tetej‚re Ąrja fel balra a feladat sz m t, jobbra a nev‚t,
tank”rsz m t ‚s csoportja bet–j‚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‚ny nem.

---------------------------------------------------------------------------
1.
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. Csak a v‚gleges megold st adja be!
A r‚szletek egy olyan programban helyekednek el, amelynek a
deklar ci˘s r‚sze a k”vetkez“:

< v-def.pas >

--- A ---
      e1:=1;
      for l1:=alberlet to orok do e1:=e1+e1;
      writeln (e1 mod 3 :3);

--- B ---
      m1:=nil;
      for e1:=5 downto 2 do begin
        new(m2);  m2^.kulcs:=e1;  m2^.lanc:=m1;  m1:=m2;
      end;
      writeln (m2^.lanc^.lanc^.kulcs);
--- C ---
      for e2:=1 to 10 do t1[e2]:= 11-e2;
      for e1:=1 to 3 do begin
        e2:=t1[e1];  t1[e2]:=e1;
      end;
      for e1:=1 to 10 do write(t1[e1]:4);
      writeln;

--- D ---
      e1:=9;  e2:=5;
      while not f(e1,e2)  do  s(e1,e2);
      writeln;

--------------------------------------------------------------------------
2.
K‚szĄtsen fggv‚nyt, amely egy s val˘s sz m arcus sinus t hat rozza meg
Łgy, hogy megkeresi az  s = sin(x)  egyenlet gy”k‚t a -pi/2 ... pi/2
tartom nyban, 8 decim lis jegy pontoss ggal!
--------------------------------------------------------------------------
3.
K‚szĄtsen teljes programot, amely a szabv nyos inputr˘l beolvasott
neveket  talakĄtja az angolos alakr˘l magyarosra: az utols˘nak megadott
csal dnevet els“nek Ąrja ki, a n‚v t”bbi szav t ugyanŁgy hagyja, ‚s Ągy
Ąrja ki a szabv nyos kimenetre.
  Pl.  Lajos P l Pemete   ==>  Pemete Lajos P l
Tudjuk, hogy egyik n‚v sem hosszabb 80 karaktern‚l, ‚s minden n‚v kl”n
sorban van.
============================ BEUGR• VGE =================================
4.                                                                [2 pont]
Adottak a k”vetkez“ adattĄpusok:
  TYPE  nevtip = packed array [1..30] of char;
        datumtip = record ev,ho,nap :integer;  end;
        szemely = record  nev: nevtip;
                          szul :datumtip;
                            {...tov bbi adatok}
                  end;
K‚szĄtsen teljes programot, amely az ilyen szemely-ekb“l  ll˘ file-ban
t rolt adatok k”zl a ma 18 ‚s 20 ‚v k”z”ttiek nev‚t kiĄrja a szabv nyos
kimenetre!
--------------------------------------------------------------------------
5.                                                                [2 pont]
Adottak a k”vetkez“ adattĄpusok:
  TYPE  mut = ^ elem;
        elem = record
                 kulcs     :real;
                 bal, jobb :mut;
               end;
K‚szĄtesen fggv‚nyt, amely meghat rozza az ilyen elemekb“l  ll˘ bin ris fa
adott szintj‚n lev“ elemek sz m t. A gy”k‚relem szintje 1, a k”zvetlen
gyerekei‚ 2, stb. V lassszon megfelel“ param‚tereket!
--------------------------------------------------------------------------