Transcript ZADACI Q

ZADACI-QBasic
Dušanka Tomić
1.Otkucajte nadimak pjesnika Jovana Jovanovića". Ako se otkuca Zmaj ili
ZMAJ ispisati "ODLICNO", inače na druge odgrovore ispisati
"ISPRAVAN ODGOVOR JE ZMAJ".
│REM:Nadimak Jovana Jovanovica
│CLS
│PRINT "Ispisi nadimak pjesnika Jovana Jovanovica"
│INPUT "Njegov nadimak je ", x$
│IF x$ = "zmaj" OR x$ = "ZMAJ" THEN
│PRINT "ODLIČNO"
│ELSE
│PRINT " ISPRAVAN ODGOVOR JE ZMAJ "
│END IF
│END
2. Navedeni izraz ima slijedeće značenje:
ako je x>=0, tada je z=1, inače je z=0.
│REM:uslov
za z
│CLS
│INPUT "Unesi neki broj ", x
│IF x >= 0 THEN
│z = 1
│PRINT "broj je ", x, "znak je ", z
│ELSE
│z = 0
│PRINT "broj je ", x, "znak je ", z
│END IF
x
3.Provjeriti da li je od dva upisana
broja prvi djeljiv sa drugim i obrnuto.
│REM:Provjerava djeljivost dva broja
│CLS
│INPUT "Unesi prvi broj ", a
│INPUT "Unesi drugi broj ", b
│IF a MOD b = 0 THEN
│ PRINT "Prvi broj je djeljiv sa drugim "
│ELSE
│ IF b MOD a = 0 THEN
│
PRINT "DRUGI BROJ JE DJELJIV SA
PRVIM "
│ ELSE
│
PRINT "Brojevi nisu djeljivi"
│ END IF
│END IF
│END
4.Upisati dva broja (x i a). Promjenljivoj z
pridružiti vrijednost prema slijedećem izrazu:
z=x+a
x>a ili z = x-a x<=a
│REM:promjenljivoj pridruziti
vrijednosti
│CLS
│INPUT "unesi promjenljivu a= ", a
│INPUT "unesi promjenljivu x= ", x
│IF x > a THEN
│PRINT "Rjesenje je z= "; x + a
│ELSE
│PRINT "Rjesenje je z= "; x - a
│END IF
│END
5. Od tri upisana broja (a, b, c) sa
tastature naći najveći.
│REM:tri broje i odrediti najveci
│CLS
│INPUT "Unesi prvi broj a=", a
│INPUT "Unesi drugi broj b=", b
│INPUT "Unesi treci broj c=", c
│max = a
│IF b > max THEN max = b
│IF c > max THEN max = c
│PRINT "Od tri unesena broja"; a, b,
c
│PRINT "Najveci je"; max
│END
a,b,c
6.Za unesenu numeričku ocjenu ispiši opisnu ocjenu
(odličan, vrlo dobar, dobar, dovoljan,nedovoljan)
│REM:napisati opisnu ocjenu
│CLS
│INPUT "Unesite ocjenu: ", ocjena%
│IF ocjena% = 5 THEN
│ PRINT "Odlican"
│ELSEIF ocjena% = 4 THEN
│ PRINT "Vrlo dobar"
│ELSEIF ocjena% = 3 THEN
│ PRINT "dobar"
│ELSEIF ocjena% = 2 THEN
│ PRINT "Dovoljan"
│ELSEIF ocjena% = 1 THEN
│ PRINT "nedovoljan "
│ELSE
│PRINT "Unesi broj od 1 do 5"
│END IF
│END
6 b.Ispis ocjena za učitanu numeričku
ocjenu pomoću SELECT CASE naredbe
│REM:ispis ocjena pomocu select case
│CLS
│SCREEN 2
│INPUT "unesi brojcanu ocjenu", ocjena%
│SELECT CASE ocjena%
│ CASE 5
│ PRINT "odlican"
│ CASE 4
│ PRINT "vrlo dobar"
│ CASE 3
│ PRINT "dobar"
│ CASE 2
│ PRINT "dovoljan"
│ CASE 1
│ PRINT "nedovoljan"
│CASE ELSE
│ PRINT "pogresan unos"
│END SELECT
7.Napisati program koji učitava prirodan broj manji
od 1000, a zatim ispisuje zbir njegovih cifara.
│REM :ZBIR CIFARA DO 1000
│CLS
│INPUT "UNESI BROJ MANJI OD 1000", X
│IF X >= 1000 THEN
│PRINT "BROJ JE VECI OD 1000"
│ELSE
│A = X MOD 100
│B = A MOD 10
│D = (X - A) / 100
│E = (A - B) / 10
│C = B + D + E
│PRINT "ZBIR CIFARA TOG BROJA JE ", C
│END IF
│END
8. Napisati program koji za učitani redni
broj dana u sedmici ispisuje njegov naziv
(ponedeljak, utorak,... , nedelja).
REM:DANI U SEDMICI
│CLS
│INPUT "UNESI REDNI BROJ DANA: ", X%
│SELECT CASE X%
│CASE 1
│PRINT "PONEDELJAK"
│CASE 2
│PRINT "UTORAK"
│CASE 3
│PRINT "SRIJEDA"
│CASE 4
│PRINT "CETVRTAK"
│CASE 5
│PRINT "PETAK"
│CASE 6
│PRINT "SUBOTA"
│CASE 7
│PRINT "NEDELJA"
CASE ELSE
PRINT “POGRESN UNOS”
END SELECT
END
│
8. Napisati program koji učitava prirodan broj
manji od 100, a zatim ispisuje zbir njegovih cifara.
│REM:Zbir cifara broja manjeg od 100
│CLS
│INPUT "unesi broj manji od 100 ", x
│IF x > 100 THEN
│PRINT "broj je veci od 100"
│ELSE
a = x MOD 10
│b=( x-a) \ 10
c=a+b
│PRINT c
│END IF
│END