Zadaci qbasic
This presentation is the property of its rightful owner.
Sponsored Links
1 / 11

ZADACI-QBasic PowerPoint PPT Presentation


  • 145 Views
  • Uploaded on
  • Presentation posted in: General

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

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.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


Zadaci qbasic

ZADACI-QBasic

Dušanka Tomić


Zadaci qbasic

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

2. Navedeni izraz ima slijedeće značenje: ako je x>=0, tada je z=1, inače je z=0.

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

3.Provjeriti da li je od dva upisana broja prvi djeljiv sa drugim i obrnuto.


Zadaci qbasic

│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


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

5.Od tri upisana broja (a, b, c) sa tastature naći najveći.

a,b,c


6 za unesenu numeri ku ocjenu ispi i opisnu ocjenu odli an vrlo dobar dobar dovoljan nedovoljan

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

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

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


Zadaci qbasic

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

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


  • Login