Zadaci iz QBASICa
Zadaci iz QBASICa Zadaci iz QBASICa
CLOSE #1 FOR i = 1 TO n NEXT i b = 0 PRINT "Rijec "; stud$(i); " ima "; FOR j = 1 TO LEN(stud$(i)) NEXT j 16 a$ = MID$(stud$(i), j, 1) a$ = "a" THEN b = b + 1 PRINT b; "slova a" ZADATAK Zadaci iz QBASICa (nizovi, datoteke, funkcije) REM Upisati u datoteku proizvoljan broj riječi. Ispisati iz datoteke na zaslon naopako samo one riječi REM kojima je duljina prost broj. CLS INPUT "broj rijeci ", n DIM a$(n) OPEN "rijeci.txt" FOR OUTPUT AS #1 FOR i = 1 TO n NEXT i INPUT "upisi rijec ", rijec$ PRINT #1, rijec$ CLOSE #1 OPEN "rijeci.txt" FOR INPUT AS #1 FOR i = 1 TO n NEXT i INPUT #1, a$(i) CLOSE #1 FOR i = 1 TO n d = LEN(a$(i)) p = 1 FOR j = 2 TO d - 1 NEXT j b$ = "" IF d MOD j = 0 THEN p = 0 IF p = 1 THEN
NEXT i FOR k = d TO 1 STEP -1 NEXT k 17 z$ = MID$(a$(i), k, 1) b$ = b$ + z$ PRINT b$ END IF CLOSE #1 ZADATAK Zadaci iz QBASICa (nizovi, datoteke, funkcije) REM Upisati u datoteku proizvoljan broj riječi. Upisati slovo (tastatura) i ispitati koliko puta se to REM slovo pojavljuje u svakoj riječi upisanoj u datoteci. CLS INPUT "broj rijeci ", n OPEN "rijeci.txt" FOR OUTPUT AS #1 FOR i = 1 TO n NEXT i INPUT "upisi rijec ", rijec$ PRINT #1, rijec$ CLOSE #1 INPUT "trazim slovo "; slovo$ OPEN "rijeci.txt" FOR INPUT AS #1 DO WHILE NOT (EOF(1)) LOOP INPUT #1, a$ d = LEN(a$) br = 0 FOR j = 1 TO d NEXT j CLOSE # z$ = MID$(a$, j, 1) IF z$ = slovo$ THEN br = br + 1 END IF PRINT "U rijeci "; a$; PRINT " slovo "; slovo$; " pojavljuje se "; br; " puta!"
- Page 2 and 3: FOR j = i + 1 TO n IF oc(i) < oc(j)
- Page 4 and 5: PRINT PRINT "Najveci:"; max; "nalaz
- Page 6 and 7: PRINT "Ispis slucajnih brojeva:" FO
- Page 8 and 9: ZADATAK 8 Zadaci iz QBASICa (nizovi
- Page 10 and 11: END SELECT NEXT j 10 CASE "O" o = o
- Page 12 and 13: Datoteke ZADATAK 12 Zadaci iz QBASI
- Page 14 and 15: FOR j = i + 1 TO 10 NEXT j NEXT i I
CLOSE #1<br />
FOR i = 1 TO n<br />
NEXT i<br />
b = 0<br />
PRINT "Rijec "; stud$(i); " ima ";<br />
FOR j = 1 TO LEN(stud$(i))<br />
NEXT j<br />
16<br />
a$ = MID$(stud$(i), j, 1)<br />
a$ = "a" THEN b = b + 1<br />
PRINT b; "slova a"<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. Ispisati <strong>iz</strong> datoteke na zaslon naopako samo one riječi<br />
REM kojima je duljina prost broj.<br />
CLS<br />
INPUT "broj rijeci ", n<br />
DIM a$(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 />
OPEN "rijeci.txt" FOR INPUT AS #1<br />
FOR i = 1 TO n<br />
NEXT i<br />
INPUT #1, a$(i)<br />
CLOSE #1<br />
FOR i = 1 TO n<br />
d = LEN(a$(i))<br />
p = 1<br />
FOR j = 2 TO d - 1<br />
NEXT j<br />
b$ = ""<br />
IF d MOD j = 0 THEN p = 0<br />
IF p = 1 THEN
Change language