{=== Programoz s alapjai === Vizsga - 1999. 1. 27. === V-990127.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;  {$R+}

< l sd: V-Def.pas >


writeln ('A -------------------');
    for e1:=-3 div 2  to  33 mod 14 do
      if odd (e1) then  write (e1 :3);
    writeln;

writeln ('B -------------------');
      new(m1);  m1^.kulcs:=1;
      new(m2);  m2^.kulcs:=2;  m2^.lanc:=m1;
      new(m3);  m3^.kulcs:=3;  m3^.lanc:=m2;  m1^.lanc:=m3;
      e1:=0;
      while m1<>nil do begin
        write (m1^.kulcs:3);
        e1:=e1+m1^.kulcs;
        if e1>5 then m2^.lanc:=nil;
        m1:=m1^.lanc;
      end;
      writeln (e1:3);

writeln ('C -------------------');
      h1:=[20,15..18,2];    h2:=[4..9,13..16,22];
      h1:=h1-h2;
      for e2:=1 to 30 do
        if e2 in h1 then write (e2 :3);
      writeln;

writeln ('D -------------------');
      e1:=12;  e2:=3;
      while not f(e1,e2)  do s(e1,e2);
      writeln (e1:4, e2:4);

END.

--------------------------------------------------------------------------
2.                                                              [ 2 pont ]
  K‚szĄtsen olyan arcsin fggv‚nyt, amely megadja egy [-1 ... +1]
  tartom nyba tartoz˘ sz m arcus sinus nak f“‚rt‚k‚t :[-pi/2 ... pi/2],
  ‚s amelyben nem haszn lhat m s fggv‚nyt, csak a szabv nyos sin -t!
  Sz moljon a lehets‚ges legnagyobb pontoss ggal!
  Magyar zza is meg megold sa l‚nyeg‚t!
--------------------------------------------------------------------------
3.                                                              [ 2 pont ]
  K‚szĄtsen kalkul tor programot, mely a n‚gy alapm–veletet tudja
  elv‚gezni 2-2 beolvasott eg‚sz sz mon az adatok v‚g‚ig, ‚s az
  eredm‚nyt adott sz mrendszerben Ąrja ki.
  A bemeneti adatok alakja ‚s jelent‚se pl.:
       1201-651 5
       1111*33 10
  a 1201 -b“l ki kell vonni 651-et ‚s az eredm‚nyt ”t”s sz mrendszerben
  kell kiĄrni, majd 1111*33 ‚rt‚k‚t kell 10-es sz mrendszerben.
  Tudjuk, hogy a sz mrendszer 2..10 lehet, a sz mok tĄzes sz mrendszerben
  vannak megadva, az alapm–veleteket + - * ill. / jelzi, ‚s hogy a
  bemeneti adatok helyesek.

============================ BEUGR• VGE =================================
4.                                                              [ 2 pont ]
  Adottak a k”vetkez“ definĄci˘k:
    type  mut = ^elem;
          elem = record
                   ert :integer;
                   kov :mut;
                 end;
  K‚szĄtsen elj r st, amely ilyen elemekb“l  ll˘, nagys g szerint n”vekv“
  eg‚szeket tartalmaz˘ l ncok elemeit egyesĄti egyetlen, n”vekv“ l ncba!
  V lasszon megfelel“ param‚tereket ‚s magyar zza meg azokat!
--------------------------------------------------------------------------
5.                                                              [ 2 pont ]
  K‚szĄtsen programot, amely a szabv nyos Pascalban megengedett
  helyettesĄt“ karaktereket ill. karakterp rokat az eredetire cser‚li le
  egy sz”vegben:
  HelyettesĄt“:  (.   .)   (*   *)    @
  Eredeti     :  [    ]    {    }     ^
  T”rekedjen arra, hogy megmaradjon az eredeti sorszerkezet!