ZADACI-QBasic

1. ZADACI-QBasic Dušanka Tomić

2. 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

3. │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 2. Navedeni izraz ima slijedeće značenje: ako je x>=0, tada je z=1, inače je z=0. x

4. │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 3.Provjeriti da li je od dva upisana broja prvi djeljiv sa drugim i obrnuto.

5. │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 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

6. │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 5.Od tri upisana broja (a, b, c) sa tastature naći najveći. a,b,c

7. 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

8. 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

9. 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

10. 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

11. 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