7.2.. Učitati broj ispisati znak broja prema izrazu:
![](072_zad/07211010.GIF)
Opis rješenja: Navedeni izraz ima slijedeće značenje: ako je x>=0, tada je z=1, inače je z=0. Ovo je razgranata struktura tipa IF THEN ELSE.
Tekstualni algoritam |
Listing u Programskom jeziku BASIC-u |
IF Logicki uslov THEN
Istinit /TRUE/: Obrada1
ELSE
Lažan /FALSE/: Obrada2 |
IF X >= 0 THEN : REM Logicki uslov - Ako je X >= 0
Z = 1 : REM Istinit /TRUE/: Z = 1
ELSE
Z = 0 : REM Lazan /FALSE/: Z = 0
END IF |
Elementi ove strukture su: LOGIČKI IZRAZ (x>=0), Obrada1 (z=1) i Obrada2(z=0). Logički izraz je istinit ako je x = 0 i tada se izvodi Obrada1 (z=1), inače kad je logički izraz lažan izvodi se Obrada2 odnosno z prima vrijednost nule.
Opis programa: Na početku programa su navedeni tipovi varijabli. Program počinje sa tekstom da treba upisati broj. Po upisu broja izvodi se provjera vrijednosti broja (da li je negativan). Ako je upisani broj veći ili jednak nuli varijabla z postaje 1 inače z postaje 0. Na kraju je ispis vrijednosti varijabli x i z.
Listing programa:
CLS
INPUT "UNESI BROJ X:"; X
REM Logicki uslov - Ako je X >= 0
IF X >= 0 THEN
Z = 1: REM Istinit /TRUE/: Z = 1
ELSE
Z = 0: REM Lazan /FALSE/: Z = 0
END IF
PRINT "X = "; X ; " Z = "; Z
END
II Varijanta
CLS
INPUT "UNESI BROJ X:"; X
IF X >= 0 THEN Z = 1 ELSE Z = 0: REM if then else
PRINT "X = "; X ; " Z = "; Z
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211010.gif)
Index
|