Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
NEXT i<br />
FOR k = d TO 1 STEP -1<br />
NEXT k<br />
17<br />
z$ = MID$(a$(i), k, 1)<br />
b$ = b$ + z$<br />
PRINT b$<br />
END IF<br />
CLOSE #1<br />
ZADATAK<br />
<strong>Zadaci</strong> <strong>iz</strong> <strong>QBASICa</strong> (n<strong>iz</strong>ovi, datoteke, funkcije)<br />
REM Upisati u datoteku pro<strong>iz</strong>voljan broj riječi. Upisati slovo (tastatura) i ispitati koliko puta se to<br />
REM slovo pojavljuje u svakoj riječi upisanoj u datoteci.<br />
CLS<br />
INPUT "broj rijeci ", n<br />
OPEN "rijeci.txt" FOR OUTPUT AS #1<br />
FOR i = 1 TO n<br />
NEXT i<br />
INPUT "upisi rijec ", rijec$<br />
PRINT #1, rijec$<br />
CLOSE #1<br />
INPUT "trazim slovo "; slovo$<br />
OPEN "rijeci.txt" FOR INPUT AS #1<br />
DO WHILE NOT (EOF(1))<br />
LOOP<br />
INPUT #1, a$<br />
d = LEN(a$)<br />
br = 0<br />
FOR j = 1 TO d<br />
NEXT j<br />
CLOSE #<br />
z$ = MID$(a$, j, 1)<br />
IF z$ = slovo$ THEN<br />
br = br + 1<br />
END IF<br />
PRINT "U rijeci "; a$;<br />
PRINT " slovo "; slovo$; " pojavljuje se "; br; " puta!"