$e
====================================== 1986.jan.27. =======
1/a) e1:=2; e2:=6;
for e3:=succ(e1) to pred(e2) do
if e3 mod 2 =0 then writeln(e3);
writeln(pred(e2));
-----------------------------------------------------
b) e1:=0; l1:=foberlet;
while e1<=ord(l1) do e1:=2*(e1+1);
writeln(ord(pred(l1)),e1);
-----------------------------------------------------
c) e1:=1; e2:=0;
while not f(e1,e2) do
begin e1:=2*e1; e2:=e2+1; end;
writeln(e2);
-----------------------------------------------------
d) e1:=11; e2:=7;
repeat s(e1,e2); writeln(e1,e2); e1:=e1+2;
until e1<3;
-----------------------------------------------------
e) h1:=(.1,3..5,7.); h2:=(..);
for e1:=1 to 10 do
if e1 in h1-h2 then h2:=h2+(.e1+2.);
for e1:=1 to 30 do if e1 in h1*h2 then write (e1);
-----------------------------------------------------
f) m1:=nil;
for e1:=1 to 3 do
begin
new(m2);
with m2@ do begin kulcs:=2*e1; lanc:=m1; end;
m1:=m2;
end;
while m2<>nil do
begin write(m2@.kulcs); m2:=m2@.lanc; end;
-----------------------------------------------------
g) readln (ch1,v1,v2); writeln(' ',ch1,v1,v2);
readln (ch1,ch2,ch3); writeln(' ',ch1,ch2,ch3);
read (e1); writeln(' ',e1);
, .. ..
bemeneti adatok (a _ a szokozt jeloli):
e e e e e
o o o o oe
l l l l lo
123e-2n7_abn_gn85_1n72nf
-----------------------------------------------------------
$e
,
megoldas:
a. 4
5
b. 1 6
c. 0
d. 12 1 5
1 7
4 0 3
0 7
e. 3 7
f. 6 4 2
g. 1 2.3e-1 7.0e0
_g_
72
-----------------------------------------------------------
, , ,, , , ,
2) keszitendo egy teljes program, amely megallapitja es
, , , , ,,
kiirja, hogy a bemeneti allomanyban hanyszor fordul elo
,
az 'ab' karakterlanc.
-----------------------------------------------------------
, , , .. , , ,
3) irjon integer tipusu fuggvenyt, amely parameterkent
,, , , ,
egy 20 elemu, char tipusu elemeket tartalmazo
.. .. ,
tombot es egy karaktert kap. ha ez a karakter megegyezik
.. , .. , , ,
a tomb valamelyik elemevel, akkor a fuggveny erteke
,, , ..
vegye fel a megegyezo elem indexet. ha a tombben
.. , , ,
nincs ilyen elem, akkor a fuggveny erteke legyen 0.
.. ..
ha a tombben tobb olyan elem is van, amely megegyezik az
,, ,,
illeto karakterrel, akkor a legkisebb indexu azonos
, , , ,
elem indexet vegye fel ertekkent.
, , , ,
nem hasznalhat globalis valtozot.
.. , , , ,
ugyeljen a parameterek definialasara.
=============================================================
$e
, .. , , , ,
4) deklaraljon fuggvenyt egy parameterkent atvett
, , , .. ,
egyvaltozos valos fuggveny adott intervallumbeli
, , , .. , ,, , , ,
hatarozott integraljanak kozelito meghatarozasara
, , , ,
teglalap modszerrel. az, hogy hany reszre kell osztani
,
az intervallumot, legyen parameter.
, , , ,
nem hasznalhat globalis valtozot.
.. , , , ,
ugyeljen a parameterek definialasara.
-----------------------------------------------------------
, , ,
5) irjon programot, amely beolvas egy egesz szamot
, , , , , ....
es kinyomtatja a negyzetet ugy, hogy a szamjegyek kozott
.. , ..
mindenutt kihagy egy-egy szokozt.
,, ,
(pl. ha a bemeno adat 12 , akkor az eredmeny 1_2_4 )
-----------------------------------------------------------
.. ,, , ,
6) adottak a kovetkezo definiciok:
type ptr =@rt;
rt =record kulcs :char;
tart : ..... ;
kov :ptr;
end;
, , , ,, , ,
irjon eljarast, amely ilyen elemekbol allo, adott
,, ,, , , , ,
kezdopointeru lancbol kikeresi az adott kulcsuakat es
, , , ,
ezek tartalmaval letrehoz egy masik lancot, az eredetit
,
nem valtoztatja meg.
, , , ,
nem hasznalhat globalis valtozot.