A KöMaL 2003. januári informatika feladatai

I-jelű feladatok A beküldési határidő 2003. február 15-én LEJÁRT.

I. 40. Az ábrán egy \(\displaystyle 5\times 5\)-ös táblázat minden sora, minden oszlopa és a két főátlója egy-egy ötjegyű prímszámnak olvasható. A sorokat balról jobbra, az oszlopokat fölülről lefelé, a két főátlót pedig balról jobbra kell kiolvasni.

• [\(\displaystyle \bullet\) ] A prímszámokban a számjegyek összegének ugyanannyinak kell lenni.
• [\(\displaystyle \bullet\) ] A bal felső sarokban levő számjegyet előre megadjuk.
• [\(\displaystyle \bullet\) ] Ugyanaz a prímszám egynél többször is felhasználható ugyanabban a táblázatban.
• [\(\displaystyle \bullet\) ] A prímszámok nem kezdődhetnek nullákkal, azaz pl. a 00003 nem ötjegyű prímszám.

Írjunk programot (I40.pas, ...), amely beolvassa a prímszámok számjegyeinek összegét, valamint a bal felső sarokba írandó számjegyet, s ezek alapján egy ilyen táblázatot készít.

Példa: Számjegyek összege=11, bal felső sarok számjegye=1.

(10 pont)

statisztika

I. 41. Egy négyzetet sötét és világos mezőkre osztunk. A négyzet tükörtengelyeire tükrözésével, valamint a négyzet forgatásával újabb ábrákat kaphatunk (nem biztos, hogy nem egyezik meg a

kiinduló ábrával, vagy valamelyik másik transzformáció, transzformációk eredményével).

Készítsünk programot (I41.pas, ...), amely beolvassa egy \(\displaystyle N\times N\)-es négyzet kitöltését (sorfolytonosan S vagy V betűket írhatunk be), majd kirajzolja a négyzetet és az összes különböző képet.

Példa: N=3, négyzet=((S,S,V),(V,V,V),(V,S,S)) esetén a kezdőkép és a transzformáltak:

(10 pont)

statisztika

I. 42. Egy táblázatban tároljuk néhány valutáról, hogy 100 egység belőle hány forintot ér. Például 100 ausztrál dollár (AUD) 13\,279 forint.

Készítsünk táblázatot (I42.xls), amelyben konstans valutatáblázatot használva a harmadik oszlopba bármelyik (de csak egy) valuta mellé beírva tetszőleges összeget, a táblázatkezelő kiszámolja, hogy ennyiért melyik valutából mennyit lehet kapni.

Példa:
*[3pt]

|@\(\displaystyle \;\)l|r@\(\displaystyle \;\)|r@\(\displaystyle \;\)|r@\(\displaystyle \;\)| \hline \multicolumn1|@\(\displaystyle \;\)c@\(\displaystyle \;\)|100\multicolumn1@\(\displaystyle \;\)c@\(\displaystyle \;\)|Ft\multicolumn1@\(\displaystyle \;\)c@\(\displaystyle \;\)|Mit vált?\multicolumn1@\(\displaystyle \;\)c@\(\displaystyle \;\)|Mennyit ér?
\hline
\hline AUD13279176,96
\hline CAD15014156,51
\hline CHF16287144,28
\hline CZK7773024,32
\hline EUR2383598,59
\hline HUF10023499,00
\hline PLZ6051388,35
\hline SEK2618897,59
\hline SKK5804051,55
\hline USD23499100100,00
\hline    |@\(\displaystyle \;\)l|r@\(\displaystyle \;\)|r@\(\displaystyle \;\)|r@\(\displaystyle \;\)| \hline \multicolumn1|@\(\displaystyle \;\)c@\(\displaystyle \;\)|100\multicolumn1@\(\displaystyle \;\)c@\(\displaystyle \;\)|Ft\multicolumn1@\(\displaystyle \;\)c@\(\displaystyle \;\)|Mit vált?\multicolumn1@\(\displaystyle \;\)c@\(\displaystyle \;\)|Mennyit ér?
\hline
\hline AUD132792,93
\hline CAD150142,59
\hline CHF162872,39
\hline CZK7775050,00
\hline EUR238351,63
\hline HUF100388,50
\hline PLZ60516,42
\hline SEK261814,84
\hline SKK58066,98
\hline USD234991,65
\hline

(10 pont)

statisztika