Feladat: KSz.21 Korcsoport: 16-17 Nehézségi fok: könnyű
Füzet: 1985/október, 314. oldal  PDF file
Témakör(ök): Feladat
Hivatkozás(ok):Feladatok: 1984/november: KSz.21

Egy ismert játékban a mesélő az általa gondolt prózának vagy versnek csak a magánhangzóit mondja ki ‐ a többieknek ebből kell felismerniük a szöveget.
Írjunk számítógépes programot, amely a legépelt szövegből a magánhangzókat kiírja a képernyőre ‐ a többi jel helyett pedig helyközöket is!

A szöveg csak Firefox böngészőben jelenik meg helyesen. Használja a fenti PDF file-ra mutató link-et a letöltésre.

Először szokásunkhoz híven lássunk néhány jó megoldást !
Ez a program ZX 81 gépre készült és Montvai Lászlótól származik:

 


10 PRINT ''KEREM A SZOVEGET:''
20 INPUT A$
30 CLS
40 FOR I=1 TO LEN A$
50 IF A$(I)=''E'' OR A$(I)=''U'' OR A$(I)=''I'' OR A$(I)=''O'' OR A$(I)=''A'' THEN PRINT
TAB I;A$(I);
60 NEXT I
70 PRINT AT 20, 0; ''HA FOLYTATHATJUK, NYOMJ''; AT 21, 13; ''MEG EGY BILLENTYUT!''
80 PAUSE 4E4
90 CLS
100 GO TO 10
 

A következő HT‐1080 gépre készült, Tóth 254 Zoltán programjának javított változata:
 

CLEAR 100: DIM M$(18)

10 FOR N=1 TO 18: READ M$(N): NEXT N
20 CLS: PRINT STRING $ (64, 42)
30 INPUT ''A SZÖVEG''; A$: CLS: IF LEN(A$)= 0 THEN 30
40 FOR K=1 TO LEN (A$): B$ = MID$(A$, K, 1)
50 FOR J=1 TO 18; IF B$< >M$(J) THEN NEXT J:PRINT '' '';
GO TO 70
60 PRINT B$
70 NEXT K: PRINT
80 PRINT ,,NYOMJ MEG EGY BILLENTYŰT HA MEHET!''
90 A$= INKEY $
100 IF A$ = '' '' THEN 90 ELSE 20
110 DATA A, Á, E, É, I, O, Ö, U, Ü, a, á, e, é, i, o, ö, u,ü