$e
================================== 1984.1.16 ==============
a. e2:=0;
while not eof do
begin
readln(e1);
if e1 in (.1..4.) then e2:=e2+1;
end;
writeln(e2);
,, , ..
a bemeno adatok: (a _ a szokoz jele)
e e e
o o oe
l l lo
_9__1_n_4_3n_+2__+1nf
-----------------------------------------------------
b. h1:=(.1..5,7,9.); h2:=(.4..7,14.);
h3:=h1*h2;
h1:=(.5,7.);
if h1<=h3 then
for e1:=1 to 30 do
if e1 in h1 then writeln(e1);
-----------------------------------------------------
c. e1:=3; e2:=0; b1:=e1<=e2;
t2(.1,1.):=b1;
t2(.1,2.):=t2(.1,1.) or (.e1 mod 2 =1);
t2(.2,1.):=t2(.1,1.) and t2(.1,2.);
t2(.2,2.):=not t2(.2,1.) and t2(.1,2.);
writeln; write(' ');
for e1:=1 to 2 do
for e2:=1 to 2 do write (t2(.e1,e2.):6);
-----------------------------------------------------
d. e1:=3; e2:=4;
if f(e2-e1,e1) then s(e1,2*e1) else s(e2,e2);
-----------------------------------------------------
e. new(m1); m1@.kulcs:=5;
new(m2);
with m2@ do
begin
kulcs:=7;
lanc:=m1;
end;
m3:=m2; new(m2);
with m2@ do
begin
kulcs:=9;
lanc:=m3;
end;
m1@.lanc:=m2; m3:=m2; e1:=0;
while e1<20 do
with m3@ do
begin
e1:=e1+kulcs;
m3:=lanc;
end;
writeln(e1);
-----------------------------------------------------
f. for e1:=1 to 10 do
t1(.e1.):=10;
for l1:=alberlet to foberlet do
t1(.succ(ord(l1)).):=3;
for e1:=1 to 5 do
writeln(t1(.e1.));
-----------------------------------------------------
g. new(m1); m1@.lanc:=nil; m1@.kulcs:=2;
new(m2); m2@.lanc:=m1; m2@.kulcs:=4;
new(m3); m3@:=m2@;
m1:=m3; e1:=0;
repeat
e1:=e1+m1@.kulcs;
m1:=m1@.lanc;
until m1=nil;
writeln(e1);
______________________________________________________
,
megoldas:
a. 2
b. 5
7
c. false true false true
d. 4 0 2
e. 21
f. 3
3
3
10
10
g. 6
______________________________________________________
,
2. irjon programot, amely beolvassa a bemeneti
, , .. , , ,
adatallomany osszes karakteret es kiirja, hogy a
, ,,
'0', '1', '2'....'9' karakterek hanyszor fordultak elo.
______________________________________________________
, .. , , , ,
3. irjon fuggvenyt, melynek tipusa boolean; parameterkent
,, , .. ..
egy 5 elemu, integer elemeket tartalmazo tombot kap,
, , , .. , .. ,,
es erteke true, ha ez a tomb szigoruan monoton novekvo
.. ,, , , ,
vagy csokkeno szamsort tartalmaz, egyebkent false.
==========================================================
, , ..
4. keszitsen programokat, mely a beolvasott szoveget
, , , ,, ,,, ,
kiirja es minden szo elso betujet duplan nyomtatja
.. , , , , ,
(felulnyomtatas, masszoval ranyomtatas).
, , , ,, ,, , ,
szonak szamit a csak betukbol allo karaktersorozat.
,
pl. ez 2 szo
_________________________________________________________
$e
.. , , ,,
5. nevezzunk egy termeszetes szamot egyszerunek, ha
, , , , ,
vagy primszam, vagy egy primszam negyzete.
,
irjon programot, amely kinyomtatja a legfeljebb
, ,, ,, , ,
haromjegyu egyszeru szamokat, egy sorba 20 szamot
nyomtatva]
_________________________________________________________
6. K‚szˇtsen programot, mely beolvassa az ‚vfolyamn‚vsort, (egy n‚v pontosan
30 karakteres), hallgat˘nk‚nt a vizsgajegyeket (10 jegy van), kisz mˇtja
a hallgat˘i tlagokat, majd kiˇrja azokat az adott t rgy vizsgajegyei
vagy a hallgat˘i tlagok szerinti cs”kken“ sorrendben.
A program megˇr sakor nem tudjuk a hallgat˘k sz m t, de azt igen, hogy az
adataik egy-egy sorban vannak ‚s elf‚rnek a mem˘ri ban.
A kiˇr s mindig csak egy szempont szerint t”rt‚nik, ez a szempont is
bemeneti adat. Egy fut s sor n tetsz“legesen sok szempont szerint lehessen
kiiratni.
V lasszon megfelel“ adatszerkezetet ‚s magyar zza meg azt ‚s a program
haszn lat t.