Zadaci za vjebu QBasic Duanka Tomi 3 ta

Zadaci za vježbu Q-Basic Dušanka Tomić

3. Šta će se dogoditi sa površinom pravougaonika dimenzija a i b ako mu se dimenzija a smanji za x procenata, a dimenzija b poveća za x procenata? REM: povrsina pravougaonika │CLS │10 INPUT "unesi duzinu pravougaonika ", a │ INPUT "unesi sirinu pravougaonika ", b │ INPUT "unesi procenat povecanja i smanjenja dimenzija ", x │ IF a < 1 OR b < 1 OR x <= 0 THEN 10 │ P=a*b │ Promjena = P * (x / 100) ^ 2 │ PRINT "povrsina je "; P; "cm kvadratnih" │ PRINT "Povrsina se promijenila za "; Promjena; "cm kvadratnih" │ PRINT “Sada povrsina iznosi "; P - Promjena; "cm kvadratnih" │END Dušanka Tomić

5. Napisati program za određivanje aritmetičke sredine n brojeva unesenih sa tastature. REM: Aritmeticka sredina │ CLS │ INPUT "unesi koliko brojeva treba unijeti ", n │s=0 │ FOR i = 1 TO n │ INPUT “Unesi broj”, x │s=s+x │ NEXT i │ prosjek = s / n │ PRINT "Aritmeticka sredina je ", prosjek │ END Dušanka Tomić

6. Napisati program koji ispisuje sve djelioce broja koji se unese sa tastature. │REM: ispisuje djelioce │CLS │10 INPUT "Unesite broj ", broj │ IF broj < 1 THEN GOTO 10 │ PRINT "Djelioci tog broja su " │ FOR D = 1 TO broj │ IF broj MOD D = 0 THEN │ PRINT D │ END IF │ NEXT D │ PRINT │END Dušanka Tomić

7. Napisati program koji ispisuje brojeve koji su veci od aritmetičke sredine unesenih brojeva. │REM : zadatak sa takmicenja │CLS │INPUT "N=", n │PRINT "unesite brojeve" │s = 0 │FOR i = 1 TO n │INPUT niz(i) │s = s + niz(i) │NEXT i │pros = s / n PRINT "aritmeticka sredina je ", pros │PRINT "veci su " │FOR i = 1 TO n │IF niz(i) > pros THEN │PRINT niz(i) │END IF │NEXT i │PRINT │END │ Dušanka Tomić

8. Provjeriti da li je učitani broj savršen. (Broj je savršen ako je jednak zbiru svojih djelioca isključujući njega samog, npr 6, 28) │REM: savrseni brojevi │CLS │10 INPUT "Unesi broj ", broj │ IF broj < 1 THEN GOTO 10 │ s=1 │ FOR D = 2 TO broj / 2 │ IF broj MOD D = 0 THEN s = s + D │ NEXT D │ IF broj = s THEN │ PRINT " broj"; broj; " je savrsen " │ ELSE │ PRINT " broj"; broj; " nije savrsen" │ END IF │END Dušanka Tomić

9. Napisati program koji ispisuje sve parne dvocifrene brojeve od najveceg do najmanjeg (u opadajućem nizu. ) │REM: ispis unazad parnih dvocifrenih brojeva CLS │FOR i = 98 TO 10 STEP -2 │PRINT i; │NEXT i │PRINT │END Dušanka Tomić