7.2.. Napisati program za odredjivanje y po formuli:

Listing programa:

PROGRAM p07211089;
VAR                  { deklarisanje promjenljivih }
   y, x : integer;   { cjelobrojne promjenljive }
BEGIN
     Write('Unesi x=');         { ulazna promjenljiva }
     Readln(x);                 { ulaz - ucitavanje promjenljive }
     
     IF x > 0 then y:=x+3;      { ako je x vece od 0 tada y=x+3 }
     IF x = 0 then y:=2  ;      { ako je x 0 tada y=2  - konstant a}
     IF x < 0 then y:=x-3;      { ako je x manje od 0 tada y=x-3 }
     
     Writeln('x = ', x ,'  y = ',y);  { izlaz - ispis }
  READLN;
END.

II verzija
PROGRAM p07211089;
VAR               { deklarisanje promjenljivih }
  x, y : INTEGER;    { cjelobrojna promjenljiva }

BEGIN
  Write('Broj ');   { ulazna promjenljiva }
  Readln(x);            { ulaz - ucitavanje promjenljive }

  IF x > 0 THEN        { ako je x vece ili jednako 0, x > 0 tada }
    y := x + 3              { izraz1 - z=1 }
  ELSE
    IF x = 0 THEN                 { inace }
      y := 2
    ELSE
      y := x - 3;            { izraz1 - z=0 }
     
  Writeln('Broj = ', x, ' y = ', y);   { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index