7.2.. Napisati program za izračunavanje vrijednosti prema izrazu:
.
Opis rješenja:
Listing programa:
PROGRAM P07212508;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
b : REAL; { realne promjenljive }
y : INTEGER; { cjelobrojna promjenljiva }
BEGIN
Write('Broj '); { ulazna promjenljiva }
Readln(b); { ulaz - ucitavanje promjenljive }
IF b >= 0 THEN { ako je b vece ili jednako 0, tada }
y := -1 { izraz1 - y = -1 }
ELSE { inace }
y := 1; { izraz1 - y = 1 }
Writeln('Broj = ', b, ' y = ', y); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
![](../../pascal_prir/072/072_izvedi/07212508.gif)
Index
|
![](../epp/000/Asistent.jpg) |