{=== Programtervez‚s === Nagyz rthelyi - 1999. 11. 23. === NZ991123.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, k˘dj t,
tank”rsz m t valamint laborcsoportja id“pontj t ‚s term‚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.                                                             [ 1-1 pont ]
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“:

< A deklar ci˘s r‚szt l sd:  v-def.pas >


--- A ---
      e1:=0;  l1:=foberlet;
      while e1<= ord(l1) do e1:=2*(e1+1);
      writeln(ord(pred(l1)) : 3, e1 : 3);
--- B ---
      m1:=nil;
      for e1:=8 to 12 do begin
        new(m2);  m2^.kulcs:=e1 div 2;  m2^.lanc:=m1;  m1:=m2;
      end;
      writeln (m1^.lanc^.lanc^.lanc^.kulcs :3);
--- 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] :3);
      writeln;
--- D ---
      e1:=6;   e2:=5;   s(e1,e2);
      if not f(e1,e2) then writeln(e1:4) else writeln(e2:4);
--------------------------------------------------------------------------

2.                                                                [2 pont]

K‚szĄtsen fggv‚nyt, amely meghat rozza a param‚terk‚nt
kapott f1 ‚s f2 val˘s -> val˘s fggv‚nyek egyetlen
k”z”s pontj t az adott intervallumban, adott pontoss ggal!
Tudjuk, hogy a k‚t fggv‚nynek pontosan egy metsz‚spontja van az adott
intervallumban, ‚s ennek a k‚t oldal n az a m sik fggv‚ny a nagyobb.
Adja meg m˘dszere nev‚t is!
--------------------------------------------------------------------------
3.                                                                [2 pont]

K‚szĄtsen programot, amely beolvassa k‚t, egym st k”veto sor
tartalm t (sorv‚ge jelig), majd meghat rozza ‚s kiĄrja, hogy
a m sodik sor h nyszor fordul el“ az els“ben! Tudjuk, hogy
egyik sor sem hosszabb 50 karaktern‚l.
Pl.  1. sor = "abrakadabra"  2. sor = "ab"    eredm‚ny = 2
Pl.  1. sor = "aaaa"         2. sor = "aa"    eredm‚ny = 3

============================ BEUGR• VGE =================================

4.                                                              [1.5 pont]

K‚szĄtsen elj r st, amely a param‚terk‚nt kapott, legfeljebb 1000 val˘s 
sz mb˘l kiv lasztja azt az egym s melletti elemekb“l  ll˘ val˘di 
r‚sz-sorozatot, amelynek  tlaga a legk”zelebb van az ”sszes sz m  tlag hoz,
‚s megadja ezen r‚sz-sorozat elso ‚s utols˘ elem‚nek az index‚t.
V lasszon megfelel“ adattĄpusokat ‚s param‚tereket, ‚s magyar zza
meg azokat!

--------------------------------------------------------------------------
5.                                                              [2.5 pont]

K‚szĄtsen teljes programot, amely ki‚rt‚keli egy szavazas eredm‚ny‚t:
beolvassa a szavazatokat, melyek mindegyike 1-1 nevet tartalmaz
(minden n‚v Łj sorban van, ‚s legfeljebb 30 karakterb“l  ll),
‚s megsz molja, melyik n‚vre h ny szavazat esett, majd kiĄrja
az eredm‚nyt a szavazatok cs”kken“ sorrendj‚ben!
Nem tudjuk a kl”nb”z“ nevek sz m t, de azt igen, hogy elf‚rnek a
mem˘ri ban. V lasszon megfelel“ adatszerkezetet ‚s magyar zza meg azt!