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

Opis rješenja:

Listing programa:

PROGRAM P07212509;
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 > 0 vece od 0, tada }
    y := 1              { izraz1 - y = 1 }
  ELSE                  { inace }
    y := 3;             { izraz1 - y = 3 }
     
  Writeln('Broj = ', b, ' y = ', y);   { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index