| 1. Osnove | | | 2. Elementi DRS | | | 3. DRS | | | 4. Windows | | | 5. Unix | | | 6. Programiranje | | | 7. Informatika u praksi | | | 8. Rječnik | | | 9. Prilozi | | | 10. Literatura | | | 11. Spone | | | 12. Indeks |
| Primjer IV |
Napiši algoritam i dijagram tijeka za pretvaranje centimetara u metre. Zadaje se 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 CLEAR INPUT X METRI = X / 100 PRINT METRI END |
Primjer V
Napiši algoritam i dijagram tijeka koji zadani broj A uvećava 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
CLEAR
INPUT A
IF A < 100 THEN
A = A * 100
ELSE
A = A - 100
END IF
PRINT A
END
|
Primjer VI
Napiši algoritam i dijagram tijeka za računanje opsega i površine kvadrata, ako je zadana duljina stranice kvadrata A. 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
CLEAR
INPUT A
IF A > 0 THEN
Opseg = A * 4
PRINT "Opseg="; Opseg
ELSE
PRINT "Stranica kvadrata mora biti"
PRINT "pozitivan broj."
END IF
END
|