K.G. 1 2 9 . Két pohárban azonos tömegű (100g) és töménységű (20%) rézszulfát-oldat található. Azonos tömegű (50g) vas illetve ón-lemezt merítünk az oldatba, várunk a lemezek tömegállandóságáig. Ezután határozd meg:
a.) a poharakban levő oldatok összetételét
b.) Melyik pohárban nagyobb a sóoldat töménységének a változása c.) Melyik lemez összetétele vákozott nagyobb mértékben?
K.G. 1 3 0 . * Mekkora a KNO3 oldhatósága 20°C hőmérsékleten, ha 1000g, 50°C-on telített oldatot 20°C-ra hűtve 28,7g szilárd só válik ki?
(Tudott, hogy 50°C-on lOOg vízben 85g só képes feloldódni)
K.G. 131.* Mekkora a g/l-ben kifejezett kocentrációja annak a KC1 -oldatnak, amelyet úgy készítettünk, hogy összeöntöttünk 1 liter 1 mol/l töménységű KOH oldatot félliter 2 mol/l töménységű HCl-oldattal és az elegyet vízzel 2 l-re hígítottuk.
K.G. 132.* Egyenlő térfogatú kén-dioxid és oxigén-gáz elegyet katalizátor felületére vezették, a kéndioxid 80%-a oxidálódott. Határozd meg a katalizátor felületét elhagyó gázkeverék térfogat % - o s összetételét!
K.L. 1 8 3 . Egy 10dm3-es gázpalackban 6,45kg tiszta szén-dioxidnak hány százaléka van cseppfolyós halmazállapotban 20°C-on, ha ezen a hőmérsékleten a folyékony szén-dioxid gőznyomása 5850 kPa, sűrűsége pedig 0,77 g / c m3?
K.L. 1 8 4 . Egy zárt acéltartályban 20°C-on 12,5% CO tartalmú levegő van. A szén-monoxid egy része az oxigén egy részével C O2- d á alakul.
Hány térfogatszázalék CO2 lesz az így keletkező gázelegyben, ha nyomása 32,2 °C-on lesz azonos a kiinduló elegyével?
K.L. 1 8 5 . 1 kg 10,5 mólszázalékos sósaváoldatba kristályvizes bárium- hidroxidot ( B a ( O H )2 8H2O) szórunk. Az éppen semleges oldatból 2 0 ° C - on 0,46 mol BaCl2 2H2O kristályosodik ki. Hány százalékos a 20°C-on telített BaCl2 oldat? (Ba: 137; Cl: 35,5 g/mol)
(A K.L. 1 8 3 - 1 8 5 . feladatok az Irinyi János Középiskolai Kémiaverseny 1996-os országos döntőjén szerepeltek)
Megoldott feladatok
I n f o r m a t i k a
VERSENYFELADATOK — MEGOLDÁSOKKAL II.
(folytatás az előző számból) 2. Kerítésfestés (XI-XII. osztály)
Sebaj Tóbiás házát léckerítéssel vette körül, s be szeretné festeni. Különböző színű festékei vannak. Mindegyikről tudja, hogy hány méter kerítést lehet befesteni. Tóbiás nagyon takarékos, ezért ha egyszer egy festékesdobozt megkezd, el is használja.
Segíts neki, készíts olyan programot, amely megmondja, hogy mely festékeket kell használnia! Ha több lehetőség is van, akkor a programnak azt kell megadnia, amelyikhez a legkevesebb festékesdobozt kell kinyitnia.
A KERITESx.BE állomány tartalmazza a következőt:
első sor: a kerítés hossza (H),
második sor: a festékesdobozok száma (N)
következő N sor: a dobozban levő festékkel befesthető kerítésszakasz hossza (egész számként), s tőle egyetlen szóközzel elválasztva a festék színe.
A KERITESx.KI állományba, valamint a képernyő első sorába a "BE LEHET FESTENI", vagy a "NEM LEHET BEFESTENI" szöveget kell írni. Ha be lehet festeni a kerítést a megadott feltételek mellett, akkor a következő sorba a felhasznált dobozok számát (M), a következő M sorba pedig a felhasznált dobozokban levő festék színét és a vele befesthető kerítésszakasz hosszát kell írni, az utóbbiakat egyetlen szóközzel elválasztva. Ha nem lehet befesteni a kerítést, akkor vagy a
„NINCS ELÉG FESTÉK" vagy a „MARAD VALAMELYIK FESTÉKBŐL" szöveget kell írni a második sorba.
Megjegyzés: A bemeneti állományok létezését nem kell ellenőrizni, sem pedig a bennük levő adatok helyességét. Az állományok neve rögzített, csak az x-szel jelölt karaktert kell beolvasni. Az állományok az aktuális könyvtárban (katalógus
ban) vannak.
Megoldás:
{
+ +
| N e m e s T i h a m é r S z á m í t á s t e c h n i k a i V e r s e n y , 1 9 9 6 . 1 . 2 0 . K o l o z s v á r |
| M á s o d i k f e l a d a t - K e r í t é s f e s t é s |
| P é t e r Z s o l t ( S e p s i s z e n t g y ö r g y ) m e g o l d á s a j
+. +J
u s e s c r t ;
{ G l o b á l i s v á l t o z ó k } v a r
inpf, o u t f : t e x t ; h : i n t e g e r ; n : i n t e g e r ;
1 : a r r a y [ 1. .500] of i n t e g e r ; szin : a r r a y [ 1. . 500] o f s t r i n g [ 80] ; { A k a r - e m é g t e s z t e l n i }
f u n c t i o n M e g u n t a : b o o l e a n ; v a r
c : c h a r ; b e g i n
w r i t e l n ;
w r i t e {'Akarsz-e m e g t e s z t e l n i (Igen/Nem) ' ) ; r e p e a t c := r e a d k e y ; u n t i l c in [ ' i' , ' I' , ' n' , ' N' ] ; if c in [ ' i' , ' I' ] then b e g i n
w r i t e l n (' Igen' ) ; M e g u n t a := F a l s é ; e n d e l s e b e g i n
w r i t e l n (' Nem' ) ; M e g u n t a := T r u e ; e n d ;
end;
( E g y t e s z t m e g o l d á s a J p r o c e d u r e M e g o l d á s ; v a r
m : i n t e g e r ; ( A h a s z n á l t d o b o z o k s z á m a } d : a r r a y [ 0 . . 5 0 0 ] of i n t e g e r ; ( A d o b o z o k } tot : i n t e g e r ; ( A még l e f e s t e n d ő k e r í t é s h o s s z } i : i n t e g e r ; . { C i k l u s v á l t o z ó ) { A d o b o z o k r e n d e z é s e }
p r o c e d u r e R e n d e z é s ; v a r
s : b o o l e a n ; i : i n t e g e r ; tmpl : i n t e g e r ; tmp2 : s t r i n g ; b e g i n
r e p e a t s : = t r u e ;
for i : = 1 to n - 1 do b e g i n if 1 [ i] < 1 [ i + 1] then begin
tmpl := 1[ i] ; 1[ i] : = 1 [ i + 1] ; 1 [ i + 1] : = t m p l ;
tmp2 : = szin [ i] ; szin [ i] := szin [ i + 1] ; szin [ i + 1) :•*> ttr.p?.;
3 :- f a l s e ; end;
e n d ; u n t i l s ; e n d ;
{ A f e s t é k m e n n y i s é g e l l e n ő r z é s e } f u n c t i o n E l e g : b o o l e a n ;
v a r
i : i n t e g e r ; s : i n t e g e r ; b e g i n
s : = 0 ;
for i : = 1 to n do s : = s + 1 [ i] ; if s < h then b e g i n
{ E l f o g y o t t a f e s t é k }
w r i t e l n ; w r i t e l n (' NEM L E H E T B E F E S T E N I ' ) ; w r i t e l n (outf, ' NEM L E H E T B E F E S T E N I ' } ;
w r i t e l n (' N I N C S ELEG FESTEK* ) ; writeln (outf, ' NINCS ELEG FESTEK* ) ; E l e g := f a l s e ;
e n d e l s e b e g i n E l e g := t r u e ; end;
e n d ;
{ P r ó b á l k o z á s a f e s t á s h e z } f u n c t i o n P r ó b á l k o z á s r b o o l e a n ; v a r
i : i n t e g e r ; b e g i n
{ N e m - e s i k e r ü l t m á r } if tot = 0 then b e g i n
1 M e g v a n ! ] P r ó b á l k o z á s := T r u e ;
e x i t ; end e l s e b e g i n
t A z m . f e s t é k m e g v á l a s z t á s a a z ö s s z e s lehető m ó d s z e r s z e r i n t ) for i : = d [ m - 1] + 1 to n d o b e g i n
if 1 [ i] < = tot then b e g i n ( F e l h a s z n á l o m ezt is } d [ m ] := i;
tot :» tot - H i] ; inc ( m ) ;
if P r ó b á l k o z á s t h e n b e g i n { M e g v a n ! }
P r ó b á l k o z á s := t r u e ; e x i t ;
e n d ; d e c ( m ) ;
tot :« tot + 1[ i] ; e n d ;
e n d ;
P r ó b á l k o z á s := Falser
en d;
e n d ; b e g i n
{ A f e s t é k e s d o b o z o k r e n d e z é s e } R e n d e z é s ;
{ Ha van e l e g f e s t e k ) if E l e g then b e g i n
( M e g p r ó b á l o m l e f e s t e n i a k e r i t e s t ] tot := h ; m := 1; d [ 0] := 0;
if P r ó b á l k o z á s then b e g i n if tot = 0 then b e g i n
{ S i k e r ü l t ! ! ! } t A m e g o l d á s k i i r a s a }
w r i t e l n ; w r i t e l n (' B E L E H E T FESTENI' ) ; w r i t e l n (outf, ' BE L E H E T FESTENI' ) ; d e c ( m ) ;
w r i t e l n (m) ; w r i t e l n (outf, m ) ; for i : = 1 to m do b e g i n
w r i t e l n {szin[ d [ i] ] , ' ' , 1 [ d [ i] ] ) ; w r i t e l n (outf, szinf d [ i ] ] , " , l [ d [ i ) ] | ; e n d ;
e n d ;
e n d e l s e b e g i n ( M i n d i g m a r a d }
w r i t e l n ; w r i t e l n (' NEM L E H E T B E F E S T E N I ' ) ; w r i t e l n (outf, ' NEM L E H E T B E F E S T E N I ' ) ; w r i t e l n (' M A R A D V A L A M E L Y I K FESTÉKBŐL' ) ; w r i t e l n (outf, ' M A R A D V A L A M E L Y I K F E S T É K B Ő L ' ) ; e n d ;
e n d ; e n d ;
{ A t e s z t e k b e k é r é s e } p r o c e d u r e B e k e r e s ; v a r
x : c h a r ; i : i n t e g e r ; b e g i n
r e p e a t
{ A b e m e n e t i f i l e n e v e } w r i t e l n ;
w r i t e (' A b e m e n e t i file n e v é n e k utolsó karaktere (KERÍTÉS? .BE) ' ) ; r e a d I n (x) ;
( A b e m e n e t i f i l e m e g n y i t á s a } a s s i g n (inpf, ' K E R Í T É S ' + x + ' . BE' ) ; t $1-}
r e s e t ( i n p f ) ; { $1+)
if i o r e s u l t <> 0 then b e g i n w r i t e l n ;
writeln (' Nem találom a ' ' KERÍTÉS' , +• x +•' . B E " b e m e n e t i f ile-t !' ) ; h a l t ( 1 ) ;
end;
{ A k i m e n e t i file l é t r e h o z á s a } a s s i g n (outf, ' K E R Í T É S ' + x + ' .KI' ) ; r e w r i t e ( o u t f ) ;
{ A z a d a t o k b e o l v a s á s a a b e m e n e t i f i l e o k b o l } r e a d l n ( i n p f , h ) ;
r e a d l n ( i n p f , n) ; if n > 5 0 0 t h e n b e g i n
w r i t e l n (' M a x i m u m 500 f e s t é k e s d o b o z a d h a t ó m e g !' ) ; h a l t (1) ;
e n d ;
for i : = 1 t o n d o b e g i n r e a d (inpf, 1 ( i] ) ; r e a d l n ( i n p f , szinf i] ) ;
w h i l e szin [ i] [1] = ' ' do d e l e t e (szin [ i] , 1, 1) ; e n d ;
{ A b e m e n e t i file l e z á r á s a ) c l o s e { i n p f ) ;
( A t e s z t m e g o l d á s a } M e g o l d á s ;
( A k i m e n e t i f i l e l e z á r á s a } c l o s e ( o u t f ) ;
{ A k ö v e t k e z ő t e s z t } u n t i l M e g u n t a ; end;
( A f ö p r o g r a m } B E G I N
{ E g y k i c s i d u m a } c Í r s e r ;
writeln ('Nemes Tihamér Számítástechnikai Verseny, 1996 K o l o z s v á r ) ; w r i t e l n (' M á s o d i k f e l a d a t - K e r í t é s f e s t é s ' ) ;
{ A t e s z t e k b e k é r é s e ) B e k e r e s ;
E N D .
Hírek
A Gazeta de Informatica újjászületése
A Gazeta de Informatica egyéves, önként vállalt kényszerszünet után ismét megjelent. A kényszerszünet okairól a Firka 1994/95-ös évfolyamának 4.
számában beszámoltunk. A lap elegáns új köntösben, részben új szerkesztő bizottsággal (főszerkesztő: Horia Georgescu, szerkesztők: Marian Gheorghe, Simona Motogna, Clara Ionescu), a régiekhez hasonló gazdag tartalommal jelent meg. Az első szám (1996/1, VI. évfolyam) beszámol az 1995-ben Szegeden tartott
