zadaci QBasic-elementarni | |
File Size: | 42 kb |
File Type: | doc |
qbasic.exe | |
File Size: | 254 kb |
File Type: | exe |
Primjeri sa časova
Nacrtaj dijagram toka za program koji će osobi starijoj od 13 godina pokrenuti igru, dok će mlađima vratiti poruku „Premladi ste“. Broj godina osoba unosi sama.
CLS
INPUT G
IF G>13 THEN
PRINT"Pokreni igru"
ELSE PRINT"Premladi ste"
END IF
END
Nacrtaj dijagram toka za program koji će izračunati površinu kvadrata stranice A. Onemogućiti da se unese negativna vrijednost za stranicu kvadrata.
CLS
10 INPUT A
IF A>0 THEN
PRINT"P=";A^2
ELSE
GOTO 10
END IF
END
Uraditi program koji provjerava da li je uneseni broj X cijeli broj.
CLS
INPUT X
IF FIX(X)=X THEN
PRINT"Jeste cijeli"
ELSE PRINT"Broj je decimalan"
END IF
END
Primjer 1. Uraditi program koji promjenljivoj X pridružuje vrijednost za dužinu unijetog znakovnog niza A$ i ispisuje vrijednost
CLS
INPUT A$
X=LEN(A$)
PRINT X
END
Primjer 2. Uraditi program koji promjenljivoj Y pridružuje vrijednost ostatka pri dijeljenju A sa B, a zatim ispisuje ostatak.
CLS
INPUT A,B
Y=A MOD B
PRINT Y
END
Primjer 3. Sastaviti dijagram toka i uraditi program koji proverava da li je od dva upisana broja prvi djeljiv sa drugim.
CLS
INPUT A,B
IF A MOD B=0 THEN
PRINT"DJELJIVI"
ELSE PRINT"NISU DJELJIVI"
END IF
END
Primjer 4. Sastaviti dijagram toka i uraditi program koji proverava koja je od dvije riječi duža.
CLS
INPUT A$,B$
IF LEN(A$) > LEN(B$) THEN
PRINT"Prva riječ je duža"
else
IF LEN(A$) < LEN(B$) THEN
PRINT"Druga riječ je duža"
else
PRINT"Jednake su"
END IF
END IF
END