7.2.. Napisati program za odredjivanje y po formuli:

Listing programa:

PROGRAM P07211088;
VAR                        { deklarisanje promjenljivih }
  x, y : INTEGER;    { cjelobrojne promjenljive }
BEGIN
  WRITE('Broj  ');        { ulazne promjenljive }
  READLN( x );            { ulaz - ucitavanje promjenljive }
 
  IF x > 0 THEN           { ako je x vece od 0 tada }
      y := 1              { izraz1 }
  ELSE
    IF x = 0 THEN         { ako je x = 0, a > b tada }
      y := 0              { izraz2 }
     ELSE
       y := - 1;          { izraz3 }
  READLN( x );            { ulaz - ucitavanje promjenljive }

  Writeln(' x ', x, ' y ', y );
  READLN;
END.

II verzija

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

Ispis na ekranu:

Index