KLAVYEDEN KÜÇÜK HARFLERLE GİRİLEN BİR CÜMLEDEKİ SESLİ HARFLERİN SAYISINI VE CÜMLEDEKİ YERLERİNİ BULAN PROGRAM.

10 REM SESLİ HARFLAR
20 A$(1) = "a" :  A$(2) = "e" : A$(3) = "1" : A$(4) = "i"
30 A$(5) = "o": A$(6) = "ö": B$(7) = "u" : B$(8) = "ü"
40 CLS : INPUT  "Cümle:" ", B$: C=0
50 FOR Y = 1 TO LEN(B$)
60 H$ = MID$(B$,Y,1)
70 FOR Z = 1 TO 8
80 IF H$ <> B$(Z) THEN 100
90 S=S+1 : YER(S) = Y : GOTO 110
100 NEXT Z
110 NEXT Y : PRINT
120 PRINT "Cümlede , " ; S ; "tane sesli harf vardır."
130 PRINT : "YERLERİ :" ;
140 FOR Y = 1 TO S
150 PRINT Yer(Y) ; "-" ;
160 NEXT Y
170 END