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  NATRAG  DALJE  POČETAK

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:
4

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:
5

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:
6

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
 NATRAG
 Tražila
 DALJE

 Početak
 KAZALO  Informatička abeceda