{========= Programoz s alapjai ======= P˘tz rthelyi - 1994. 12. 12. ======

Minden sz mozott feladat megold s t kl”n lapra Ąrja! A lap tetej‚re
Ąrja fel balra a feladat sz m t, jobbra a nev‚t ‚s tank”r‚t!
Minden lapnak csak az egyik fel‚re Ąrhat.
A megold shoz haszn lhat bels“ elj r sokat ‚s fggv‚nyeket.
A feledatk‚nt megĄrand˘ elj r sok ‚s fggv‚nyek nem haszn lhatnak
glob lis v ltoz˘t, haszn latukhoz nem Ąrhat˘ el“ k”ls“ v ltoz˘ ‚rt‚ke.

---------------------------------------------------------------------------
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 >

1.A)
   e1:=1;  h1:=[5..10,3..1];
   repeat
     readln(e2);
     if e2 in h1 then e1:=e1+e2;
   until e1>20;
   writeln(e1:5);

A bemen“ adatok   (az res hely egy sz˘k”zt jelent):
 2 3 4
 5 6 7
 8 9 10
 2 3 4
 5 6 7
 8 9 10
----------------------------------------------------------------------
1.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);
-----------------------------------------------------------------------
1.C)
    t1[1]:=0;
    for e1:=1 to 5 do begin
      e2:=e1+1;
      for e2:=e2 to 12-e2 do
        t1[e2]:=e1;
    end;
    for e1:=1 to 10 do  write(t1[e1]:3);
-----------------------------------------------------------------------
1.D)
    new(m1);  m1^.kulcs:=1;  m1^.lanc:=m1;
    repeat
      read (e1);  m2:=m1;  e2:=m1^.kulcs;
      while e2<e1 do begin
        m2:=m2^.lanc;  e2:=e2+m2^.kulcs;
      end;
      new(m3);  m3^.kulcs:=e1;
      m3^.lanc:=m2^.lanc;  m2^.lanc:=m3;
    until e1<0;
    m2:=m1;
    repeat  write (m2^.kulcs,' ');  m2:=m2^.lanc^.lanc;
    until m2=m1;

Bemeneti adatok:  4  2  0 -2
-----------------------------------------------------------------------
1.E)
    e1:=7; e2:=4;
    while not f(e1,e2) do s(e1,e2);
    writeln(e1:3, e2:3);
-----------------------------------------------------------------------
1.F)
    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);

-----------------------------------------------------------------------
2.
  Adottak a k”vetkez“ definĄci˘k:
    TYPE  ptr = ^rec;
          rec = record  kulcs :real;  bal,jobb :ptr;  end;
  Deklar ljon egy fggv‚nyt, amely megadja, hogy egy ilyen elemekb“l
   ll˘ bin ris fa kulcsai balr˘l jobbra n”vekv“ sorrendben rendezettek-e.

-----------------------------------------------------------------------
3.
  K‚szĄtsen teljes programot, amely beolvas egy ilyen sz”vegfile-t:

s6021san S ndor Bal zs Istv n, 1. MI, 1.
s6022and Andricsek Nen d, 1. MI, 2.
s6055fur Fr Kov cs Csaba, 1. MI, 3.
s6048pal Palot s Endre, 1. MI, 2.
s6050bab Babik Zolt n, 1. MI, 3.
 ...
  majd ez alapj n a szabv nyos kimenetre soronk‚nt kiĄrja
  a tank”rsz mokat ‚s a neveket ilyen alakban:

1  S ndor Bal zs Istv n
2  Andricsek Nen d
3  Fr Kov cs Csaba
2  Palot s Endre
3  Babik Zolt n
 ...
  Tudjuk, hogy minden beolvasott sor ugyanolyan szerkezet–
  ‚s egyik sem hosszabb 80 karaktern‚l.

=========================== Beugr˘ v‚ge ===============================
4.
  Adottak a k”vetkez“ definĄci˘k:
    const  m= ... ;  {legal bb 4}
    type   at =array [1..m,1..m] of boolean;
  K‚szĄtsen egy fggv‚nyt, amely megadja, hogy van-e olyan hely
  egy ilyen t”mbben, ahol 3 darab TRUE ‚rt‚k– elem van egym s mellett
  L alakban b rmilyen ir nyban, k”rl”tte pedig csupa FALSE ‚rt‚k–
  elemek vannak.  Pl.:     ..
                      ... f f f f ...
                      ... f T T f ...
                      ... f f T f ...
                      ... f f f f ...

-----------------------------------------------------------------------
5.
  Tudjuk, hogy egy eg‚szekb“l  ll˘, hosszŁ file-ban kev‚s kl”nb”z“
  ‚rt‚k fordul el“. A kl”nb”z“ adatok elf‚rnek a mem˘ri ban.
  K‚szĄtsen programot, amely kiĄrja a szabv nyos outputra, hogy
  mely ‚rt‚k h nyszor fordult el“. A file-t csak egyszer olvashatja v‚gig.
-----------------------------------------------------------------------
6.
  Tudjuk, hogy N elem Shell rendez‚s‚n‚l az ”sszehasonlĄt sok sz m t
  az  A * N ** B  k‚plettel adhatjuk meg k”zelĄt“leg, ahol ** jelzi a
  hatv nyoz st. K‚szĄtsen programot, amely kĄs‚rletileg meghat rozza
  A ‚s B ‚rt‚k‚t. A megold shoz felhaszn lhatja a Random fggv‚nyt,
  amely 0 ‚s 1 k”z”tti  l-v‚letlen val˘s ‚rt‚keket ad.
  Nem kell megĄrnia mag t a Shell rendez‚st, csak az elj r sfejet
  adja meg, ‚s hogy mit m˘dosĄtana az elj r s t”rzs‚ben e feladathoz.