ISPISUJE BROJ SLOVA "a" U DATOTECI |
||
|
||
' Ispisuje broja slova a u datoteci podaci.txt ' CLS DIM rbr(10), ime$(10) OPEN "podaci.txt" FOR INPUT AS #1 INPUT #1, do$ FOR i = 1 TO VAL(do$) INPUT #1, a$, b$ rbr(i) = VAL(a$) ime$(i) = b$ NEXT i CLOSE #1 FOR i = 1 TO VAL(do$) FOR j = 1 TO LEN(ime$(i)) slovo$ = MID$(ime$(i), j, 1) IF slovo$ = "a" THEN ima = ima + 1 NEXT j NEXT i PRINT "Broj slova a:", ima |