7.2.. Učitati x. Ako je x manje ili jednako 0, tada je y=5+x, inače je y=x-3.

Opis rješenja:

Listing programa:

PROGRAM P07211096;
USES
  WinCrt;
VAR                       { deklarisanje promjenljivih }
  x, y : INTEGER;         { cjelobrojne promjenljive }
BEGIN
  WRITE('Broj  ');        { ulazne promjenljive }
  READLN( x );            { ulaz - ucitavanje vrijednosti }
 
  IF x <= 0 THEN          { ako je x manje ili jednako 0, tada }
      y := 5 + x          { broj je manji ili jednak 0 -  izraz1 }
  ELSE                    { inace }
      y := x - 3;         { broj veci od 0 - izraz2 }

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

Ispis na ekranu:

Index