Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ZADATAK<br />
15<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. Ispisati <strong>iz</strong> datoteke samo one riječi kojima je duljina<br />
REM veća od 3.<br />
CLS<br />
INPUT "broj rijeźi"; n<br />
OPEN "rijeci.txt" FOR OUTPUT AS #1<br />
FOR i = 1 TO n<br />
NEXT i<br />
CLOSE #1<br />
INPUT rijec$<br />
PRINT #1, rijec$<br />
OPEN "rijeci.txt" FOR INPUT AS #1<br />
DO WHILE NOT (EOF(1))<br />
LOOP<br />
INPUT #1, r$<br />
dr = LEN(r$)<br />
IF dr > 3 THEN PRINT r$<br />
CLOSE #1<br />
ZADATAK<br />
REM Upisati u datoteku pro<strong>iz</strong>voljan broj imena studenata. Ispisati <strong>iz</strong> datoteke imena tih studenata i<br />
REM broj pojavljivanja slova ''a'' u njihovom imenu.<br />
CLS<br />
INPUT "broj studenata"; n<br />
DIM stud$(n)<br />
OPEN "student.txt" FOR OUTPUT AS #1<br />
FOR i = 1 TO n<br />
NEXT i<br />
CLOSE #1<br />
INPUT st$<br />
PRINT #1, st$<br />
OPEN "student.txt" FOR INPUT AS #1<br />
FOR i = 1 TO n<br />
NEXT i<br />
INPUT #1, stud$(i)