Algoritam, dijagram tijeka i programi u QBasic-u
U nekoliko primjerima prikazano su jednostavni zadatci koji predstavljaju izradu dijagrama tijeka i programskog koda u QBASIC-u prema zadanom algoritmu.
Primjer 1)
Napiši algoritam i dijagram tijeka za računanje razlike, umnoška i količnika dva zadana broja.
Algoritam:
početak ----------------------------------------------------- upiši A, B C = A - B D = A × B E = A / B ispiši C, D, E ----------------------------------------------------- kraj
| Dijagram tijeka: | Programski kod: | |
 |
CLS INPUT a, b c = a - b d = a * b e = a / b PRINT c, d, e END |
Primjer 2)
Napiši algoritam i dijagram tijeka za računanje opsega i površine kvadrata, ako se stranica kvadrata unosi preko tipkovnice.
Algoritam:
početak ----------------------------------------------------- upiši A OPSEG = 4 × A POVRŠINA = A × A ispiši OPSEG, POVRŠINA ----------------------------------------------------- kraj
| Dijagram tijeka: | Programski kod: | |
 |
CLS INPUT a Opseg = 4 * a Povrsina = a * a PRINT Opseg, Povrsina END |
Primjer 3)
Napiši algoritam i dijagram tijeka za računanje prosjeka 4 broja koja se unose preko tipkovnice.
Algoritam:
početak ----------------------------------------------------- upiši A,B,C,D PROSJEK = (A + B + C + D) / 4 ispiši PROSJEK ----------------------------------------------------- kraj
| Dijagram tijeka: | Programski kod: | |
 |
CLS INPUT a, b, c, d Prosjek = (a + b + c + d) / 4 PRINT Prosjek END |
Primjer 4)
Napiši algoritam i dijagram tijeka za pretvaranje duljine izražene u mjernoj jedinici ‘centimetar’ u mjernoj jedinici ‘metar’. Preko tipkovnice se unosi mjerni broj u centimetrima, a treba odrediti koliko je to metara.
Algoritam:
početak ----------------------------------------------------- upiši X METRI = X / 100 ispiši METRI ----------------------------------------------------- kraj
| Dijagram tijeka: | Programski kod: | |
 |
CLS INPUT X METRI = X / 100 PRINT METRI END |
Primjer 5)
Napiši algoritam i dijagram tijeka koji će unjeti broj A preko tipkovnice uvećati 100 puta ako je A manji od 100, a inače A umanji za 100. Ispisati dobiveni rezultat.
Algoritam:
početak ----------------------------------------------------- upiši A ako je A < 100 onda A = A × 100 inače A = A - 100 ispiši A ----------------------------------------------------- kraj
| Dijagram tijeka: | Programski kod: | |
 |
CLS
INPUT A
IF A < 100 THEN
A = A * 100
ELSE
A = A - 100
END IF
PRINT A
END
|
Primjer 6)
Napiši algoritam i dijagram tijeka za računanje opsega kvadrata, ako se duljina stranice kvadrata A unosi preko tipkovnice. Prije računanja provjeriti je li A veće od 0, a ako nije ispisati poruku: ‘Stranica kvadrata mora biti pozitivan broj.’
Algoritam:
početak ----------------------------------------------------- upiši A ako je A > 0 onda opseg = 4 × A, ispiši opseg inače ispiši 'Stranica kvadrata mora biti pozitivan broj.' ----------------------------------------------------- kraj
| Dijagram tijeka: | Programski kod: | |
 |
CLS
INPUT A
IF A > 0 THEN
Opseg = A * 4
PRINT "Opseg="; Opseg
ELSE
PRINT "Stranica kvadrata mora biti"
PRINT "pozitivan broj."
END IF
END
|
Komentari