7.2.. Napisati program za izračunavanje vrijednosti prema izrazu:
.

Opis rješenja:

Listing programa:

PROGRAM P07212508;
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:

Index