1. feladat el‚rhet“ pontsz m: 6x1 pont a) e1:=2; e2:=3; h1:=[]; h2:=[4..9,15..9,15..20]; repeat h1:=h1+[e1]; e1:=e1+3; until e1>20; h3:=h1*h2; for e1:=1 to 30 do if e1 in h3 then write(e1:5); ----------------------------------------------------- b) v1:=4; v2:=0.1; b1:=sin(v1)>1.1; t2[1,1]:=b1 or (sqrt(v2)>1.0); t2[1,2]:=t2[1,1] or (trunc(v1-0.1)>2); t2[2,1]:=not t2[1,1] and t2[1,2]; t2[2,2]:=ord('a') > ord('f'); for e1:=1 to 2 do for e2:=1 to n do write(t2[e1,e2]:6); ----------------------------------------------------- c) e1:=-6; e2:=2; while f(8,e1+e2) do s(e1,2*e2); ----------------------------------------------------- d) for e1:=1 to 10 do t1[e1]:=e1 mod 4; for e1:=9 downto 2 do if t1[e1-1.)+t1[e1+1]=t1[e1]*2 then writeln (e1,t1[e1]:6); ----------------------------------------------------- e) new(m1); new(m2); new(m3); with m1^ do begin kulcs:=1; lanc:=m2; end; with m2^ do begin kulcs:=2; lanc:=m3; end; with m3^ do begin kulcs:=3; lanc:=m3; end; m3:=m1; e1:=0; repeat write(m3^.kulcs:6); e1:=e1+m3^.kulcs; m3:=m3^.lanc; until e1>8; ----------------------------------------------------- f) writeln; write(' '); ch1:=chr(succ(ord(succ('0')))); e1:=0; for ch2:=ch1 to '5' do e1:=succ(e1); writeln(e1:5); end. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2. feladat el‚rhet“ pontsz m: 3 pont k‚sz¡tsen programot, amely az input-r¢l beolvasott val¢s sz mokat kl”n sorba ki¡rja az output-ra. mindegyik ut n ki¡rja azt is, hogy az utolj ra beolvasott sz m mennyivel t‚r el az eddig olvasott sz mok  tlag t¢l. az adatok v‚g‚t egy -100 -n l kisebb sz m jelzi. ezt az adatot m r nem kell feldolgozni, de ki kell ¡rni az eddigi legkisebb ‚s a legnagyobb beolvasott sz mot. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3. feladat el‚rhet“ pontsz m: 3 pont k‚sz¡tsen elj r st, amely egy eg‚szeket tartalmaz¢ sz zelem– t”mbben helyi- ‚rt‚k szerint sz mjegyeivel  br zolt, maximum 48 jegy–, tizes sz mrendszer- beli sz mot h rmas sz mrendszerbe k¢dol  t. a t”mb indexel‚se megfelel a helyi‚rt‚kekhez tartoz¢ hatv nykitev“nek. az elj r s az eredm‚nyt az  tvett eredeti t”mbben adja vissza. a sz m  ltal el nem foglalt rekeszekben 0 van. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - m a x i m u m ha eddig eljutott, vizsg ja m r ‚rv‚nyes, ‚s pontsz ma 2,00 - fggetlenl att¢l, hogy eddig 7,2 vagy ak r 12 pontot szerzett. a k”vetkez“ h rom feladattal tov bbi 4 pont megszerz‚s‚re van lehet“s‚ge. ily m¢don ”sszesen 6 pontot szerezhet. ennek eg‚sz r‚sze (de maximum 5.00) adja a dolgozatra kapott oszt lyzatot, amelyet a vizsga ‚rt‚kel‚s‚n‚l 50 %-os s£lyoz ssal vesznk figyelembe. a feladatok kidolgoz s ra £jabb 60 perc  ll rendelkez‚sre. erredm‚nyes munk t k¡v nnak: a t rgy oktat¢i - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 4. feladat el‚rhet“ pontsz m: 1 pont k‚sz¡tsen programot, amely az input-r¢l beolvas h rom els“fok£ h romismeret- lenes egyenletet. egy-egy sor tartalmazza az egytthat¢kat ‚s az eredm‚nyt. meg kell  llap¡tania, ‚s az output-ra ki kell ¡rnia, hogy az egyenletrend- szernek nulla, egy vagy v‚gtelen sz m£ megold sa van-e. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5. feladat el‚rhet“ pontsz m: 1,5 pont k‚sz¡tsen programot, amely az input-r¢l end of file-ig neveket olvas be, ‚s ki¡rja az output-ra azoknak a n‚vsor t (alfabetikus sorrendben!), akiknek csal dnev‚t valaki keresztn‚vk‚nt viseli. egy sorban egy-egy n‚v tal lhat¢, a csal dnevet a keresztn‚vt“l egy sz¢k”z v lasztja el. a nevek nem hosszab- bak 32 karaktern‚l. a beolvasott nevek t rol s ra haszn ljon dinamikus adat- szerkezetet. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 6. feladat el‚rhet“ pontsz m: 1,5 pont k‚sz¡tsen programot, amely egy pascal nyelv– program sz”veg‚ben megsz molja a val¢s t¡pus£ fggv‚nydeklar ci¢kat. a sz”veget az input tartalmazza, az eredm‚nyt az output-ra kell ki¡rni.