1 / 11

ZADACI-QBasic

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

kerry-chase
Download Presentation

ZADACI-QBasic

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  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

More Related