1. Olvasson be 100 egész számot és építsen fel belőle egy listát!
Eljárás (Változó l:Lista)
Üres(l)
Ciklus I:=1-től 100-ig
Be: e
BeszúrMögé(l,e)
Ciklus vége
Eljárás vége
2. Keresse meg egy egész számokat tartalmazó listában az első 3-nál nagyobb számot és ezt
törölje ki a listából!
Eljárás (Változó l:Lista)
Ha Üres?(l) akkor Ki: Üres a lista
különben Elsőre(l)
Ciklus amíg ElemÉrték(l)<=3 és nem UtolsóE?(l)
Következőre(l)
Ciklus vége
Ha ElemÉrték(l)>3 akkor Kihagy(l)
Elágazás vége
Elágazás vége
Eljárás vége
3. Haladjon végig a lista elemein, a pozitív értékű elemeket törölje a listából és építsen belőlük
egy új listát!
Eljárás 1(Konstans l:Lista, Változó tl:Lista):
Ha Üres?(l) akkor Ki: Üres a lista
különben Elsőre(l)
Üres(tl)
Ciklus amíg nem UtolsóE?(l)
Ha ElemÉrték(l)>0 akkor BeszúrMögé(tl,ElemÉrték(l))
Kihagy(l)
különben Következőre(l)
Elágazás vége
Ciklus vége
Ha ElemÉrték(l)>0 akkor BeszúrMögé(tl,ElemÉrték(l))
Kihagy(l)
Elágazás vége
Eljárás vége
Eljárás 2(Konstans l:Lista, Változó tl:Lista):
Változó N,I:Egész
Ha Üres?(l) akkor Ki: Üres a lista
különben
N:=Elemszám(l)
Elsőre(l)
Üres(tl)
Ciklus I:=1-től N-ig
Ha ElemÉrték(l)>0 akkor BeszúrMögé(tl,ElemÉrték(l))
Kihagy(l)
különben Következőre(l)
Elágazás vége
I:=I+1
Ciklus vége
Elágazás vége
Eljárás vége
------------------
1. Olvasson be 20 egész számot! A páros értékeket tegye egy verembe! Írassa ki a verem
elemszámát!
Eljárás Páros(Változó v:Verem)
Üres(v), DB:=0
Ciklus I:=1-től 20-ig
Be: X
Ha X mod 2=0 akkor Verembe(v,X)
DB:=DB+1
Elágazás vége
Ciklus vége
Ki: DB
Eljárás vége
2. Adott egy egész értékekkel feltöltött verem. Írassuk ki a maximum értékét! (A vermet
kiüríthetjük az elemek megjegyzése nélkül.)
Eljárás Maximum(Változó v:Verem)
Ha Üres?(v) akkor Ki: Üres a verem
különben Veremből(v,MAX)
Ciklus amíg nem Üres?(v)
Veremből(v,X)
Ha X>MAX akkor MAX:=X
Elágazás vége
Ciklus vége
Ki: MAX
Elágazás vége
Eljárás vége
3. Adott egy egész értékekkel feltöltött sor. Írassuk ki, hogy van-e 5-tel osztható a sorban! (A
sort kiüríthetjük az elemek megjegyzése nélkül.)
Eljárás Osztható(Változó s:Sor)
Ha Üres?(s) akkor Ki: Üres a sor
különben Ciklus amíg nem Üres?(s) és Első(s) mod 5 <>0
Sorból(s,X)
Ciklus vége
Ha Üres?(s) akkor Ki: Nincs.
különben Ki: Van.
Elágazás vége
Elágazás vége
Eljárás vége
4. Adott egy szöveggel (karakterekkel) feltöltött sor. Töröljük ki a szóközöket a sorból!
(Tételezzük fel, hogy ’#’ karaktert nem tartalmaz a szövegünk.)
Eljárás Szóköz(Változó s:Sor)
Ha Üres?(s) akkor Ki: Üres a sor
különben Sorba(s,’#’)
Ciklus amíg Első(s) <> ’#’
Sorból(s,X)
Ha X<>’ ’ akkor Sorba(s,X)
Elágazás vége
Ciklus vége
Sorból(s,X)
Elágazás vége
Eljárás vége