| 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 IX | |
|
|
Napiši algoritam i dijagram tijeka za zbrajanje prvih N prirodnih brojeva.
Algoritam:
početak
-----------------------------------------------------
X=0
ZBROJ = 0
upiši N
X = X + 1
ZBROJ = ZBROJ + X
ako je X < N
onda vrati se na naredbu X = X + 1
ispiši ZBROJ
-----------------------------------------------------
kraj
| Dijagram tijeka: | Programski kod: |
|
-----------------------------------------------------------
10 CLS
20 CLEAR
30 X = 0: Zbroj = 0
40 INPUT "Upisi granicu zbrajanja"; N
DO
X = X + 1
Zbroj = Zbroj + X
LOOP WHILE X < N
REM 'LOOP UNTIL' po prvom zdovoljenom izlazi iz petlje
50 PRINT "Zbroj je:"; Zbroj
60 END
-----------------------------------------------------------
10 CLS
20 CLEAR
30 x = 0: Zbroj = 0
40 INPUT "Upisi granicu zbrajanja"; N
FOR i = 1 TO N STEP 1
x = x + 1
Zbroj = Zbroj + x
NEXT i
50 PRINT "Zbroj je:"; Zbroj
60 END
-----------------------------------------------------------
|
Primjer X
Napiši algoritam i dijagram tijeka koji učitava N cijelih brojeva. Izračunati zbroj svih pozitivnih i zbroj svih negativnih brojeva.
Algoritam:
početak
-----------------------------------------------------
upiši N
broj = 0
pozitivni = 0
negativni = 0
upiši x
ako je x > 0
onda pozitivni = pozitivni + x
inače negativni = negativni + x
broj = broj + 1
ako je broj < N
onda vrati se na naredbu: upiši x
ispiši pozitivni, negativni
-----------------------------------------------------
kraj
| Dijagram tijeka: | Programski kod: |
|
10 CLS
20 CLEAR
30 broj = 0: pozitivni = 0: negativni = 0
40 INPUT "Upisi granicu zbrajanja"; N
DO
INPUT "Upisi jedan broj:"; X
IF X > 0 THEN
pozitivni = pozitivni + X
ELSE
negativni = negativni + X
END IF
broj = broj + 1
LOOP WHILE X < N
REM 'LOOP UNTIL' po prvom zdovoljenom izlazi iz petlje
50 PRINT "Zbroj pozitivnih je:"; pozitivni
60 PRINT "Zbroj negetivnih je:"; negativni
70 END
|
|
 |
|
