7.2.. Napisati program za odredjivanje y po formuli:

Listing programa:

I varijanta   3x if
PROGRAM RAZ3_9;
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  x, y : REAL;       { realne promjenljive }
BEGIN
  WRITE('Broj  ');      { ulazna promjenljiva }
  READLN( x );          { ulaz - ucitavanje promjenljive }
  
  IF x <= -2 then y := x + 2;           { ako je x manje ili jednako od -2 tada y := x + 2 }
  IF (-2 < x) AND (x < 2) then y := 2;  { ako je x vece od -2 i manje od 2 tada y := 2 }
  IF x >= 2 then y := x - 2;            { ako je x vece ili jednako 2 tada y := - x - 2 }
	  
  WRITELN('x ', x, '    y ', y );  { izlaz - ispis }
END.


II varijanta   if then else
PROGRAM RAZ3_9;
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  x, y : REAL;       { realne promjenljive }
BEGIN
  WRITE('Broj  ');      { ulazna promjenljiva }
  READLN( x );          { ulaz - ucitavanje promjenljive }
  
  IF x <= -2 THEN                  { ako je x manje ili jednako -2, x <= -2 tada }
    y := x + 2                     { izraz - suma }
  ELSE
    IF (-2 < x) AND (x < 2) THEN   { ako je x u opsegu -2 do 2 tada }
      y := 2                       { izraz2 - konstanta}
    ELSE
      y := x - 2;                  { izraz3 - razlika}
	  
  WRITELN('x ', x, '    y ', y );  { izlaz - ispis }
END.

Ispis na ekranu:

Index