{======= Programoz s ====== Nagyz rthelyi - 1995. 11. 23. ==== Nz951123.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 ‚s tank”r‚t!
A megold shoz haszn lhat bels“ elj r sokat ‚s fggv‚nyeket.
Egyik elj r s vagy fggv‚ny sem haszn lhat glob lis v ltoz˘t.
===========================================================================
1)
... L sd: V-def.pas

A)  -------------------------------------------------------
    for e1:=-3 div 2  to  33 mod 13 do
          if odd (e1) then  write (e1+1 :3);
    writeln;
B)  -------------------------------------------------------
    e3:=0;  l1:=kastely;
    repeat  e3:=e3+ord(odd(ord(l1)))+3;  l1:=pred(l1);
    until e3>=10;
    writeln(e3 mod ord(l1):3);
C)  -------------------------------------------------------
    e1:=22;  e2:=3;
    while not f(e1,e2) do s(e1,e2);
    writeln;
D)  -------------------------------------------------------
    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] or t2[1,2];
    for e1:=2 downto 1 do
      for e2:=1 to 2 do  write(t2[e1,e2]:8);
    writeln;
E)  -------------------------------------------------------
    with rect[1] do begin nev:='ab'; suly:=1; end;
    with rect[2] do begin nev:='bc'; suly:=3; end;
    with rect[3] do begin nev:='ba'; suly:=2; end;
    for e1:=1 to 3 do
      for e2:=e1+1 to e1+3 do
        if rect[e1].nev < rect[e2 mod 3 +1].nev
        then writeln (rect[e1].nev);
F)  -------------------------------------------------------
    new(m1);  m1^.lanc:=nil;  m1^.kulcs:=5;
    for e1:=1 to 5 do  begin
      m2:=m1;
      new(m3);  m3^:=m2^;  m2^.kulcs:=e1;  m2^.lanc:=m3;
    end;
    m3^.lanc:=m1^.lanc;
    for e1:=1 to 6 do  begin
      write(m1^.kulcs:3);  m1:=m1^.lanc;
    end;
    writeln;

2. Feladat ------------------------------------------------------ 3 pont

  Adottak a k”vetkez“ definĄci˘k:
    const M = ...;
    type pont    = record  x, y :integer;  end;
         pontok  = array [1..M] of pont;
         szakasz = record  eleje,vege :pont;  end;

  K‚szĄtsen Pascal elj r st, amely egy pontok tĄpusŁ adatot vesz  t,
  melynek els“ valah ny elem‚t haszn ljuk, ‚s egy szakasz tĄpusŁ adatban
  visszaadja a pontok k”z”tt hŁzhat˘ leghosszabb szakaszt v‚gpontjait!

3. Feladat ------------------------------------------------------ 3 pont

  K‚szĄtsen egy teljes programot, amely beolvassa ‚s kiĄrja a
  szabv nyos INPUT  llom ny tartalm t, de Łgy, hogy k‚t sz˘ k”z”tt
  pontosan egy sz˘k”zt hagy csak. A szavakat az eredeti sz”vegben tetsz“-
  leges sz mŁ sz˘k”z v laszthatja el. A sorokra tagol s maradjon az eredeti!

============================== BEUR• VGE ==============================

4. Feladat ------------------------------------------------------ 1 pont

  K‚szĄtsen elj r st, amely a param‚terk‚nt kapott val˘s -> val˘s
  fggv‚nyt adott intervallumban, pontsz mmal ‚s sz‚less‚gben Ągy  br zol:
       X        Y
     1.000    3.234  *
     1.100    4.358  --*
     1.200    8.321  ----------------*
      ...
  Haszn lja ki a teljes sz‚less‚get!
  V lasszon megfelel“ param‚tereket ‚s magyar zza meg azokat!

5. Feladat ------------------------------------------------------ 1.5 pont

  K‚szĄtsen programot, amely beolvassa a Hanoi tornyai probl‚ma megold s nak
  els“ valah ny l‚p‚s‚t a k”vetkez“ alakban: a teljes torony m‚rete (eg‚sz,
  legfeljebb 64), majd egy-egy l‚p‚s: k‚t-k‚t ('A', 'B' vagy 'C') karakter,
  tetsz“leges sz mŁ sz˘k”zzel ill. Łjsor jellel elv lasztva, mely megadja,
  hogy honnan hova tesszk  t a fels“ korongot, pl.:
    5   A  B    A  C   B C  ...
  ‚s a program kiĄrja, ha egy l‚p‚s nem megengedett (ekkor a l‚p‚st nem
  hajtjuk v‚gre), majd v‚gl azt, ha mind helyes volt.
  Nem kell vizsg lni, hogy a l‚p‚sek t‚nyleg a megold s ir ny ba visznek-e!

6. Feladat ------------------------------------------------------ 1.5 pont

Adottak a k”vetkez“ definĄci˘k:
  type  pt = ^elem;
        elem = record  ertek :real;
                       bal, jobb :pt;
               end;
  K‚szĄtsen fggv‚nyt, mely megadja az ilyen elemekb“l  ll˘ bin ris f ban
  t rolt ‚rt‚kek  tlag t, azaz a sz mtani k”zep‚t.
  V lasszon megfelel“ param‚tereket! T”rekedjen gyors megold sra!