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

Listing programa:

I varijanta   3x if
PROGRAM P0721106;
USES 
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  a, b, z : REAL;    { realne promjenljive }
BEGIN
  Write('Dva broja ');  { ulazne promjenljive }
  Readln(a, b);         { ulaz - ucitavanje promjenljivih }
  
  IF a > 1 then z := b / a;                   { ako je vece ili jednako 1 tada kolicinik z := b / a }
  IF (-6 < a) AND (a <= 1) then z := a + 3 ;  { ako je a iz opsega tada uvecaj za 3 z := a + 3 }
  IF a <= -6 then z := a + b;                 { ako je a manje ili jednako -6 tada suma brojeva z := a + b }
  
  Writeln('a=', a, ' b=', b,' z=', z);  { izlaz - ispis }
END.


II varijanta   if then else
PROGRAM P0721106;
USES 
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  a, b, z : REAL;    { realne promjenljive }
BEGIN
  Write('Dva broja ');  { ulazne promjenljive }
  Readln(a, b);         { ulaz - ucitavanje promjenljivih }
  
  IF a > 1 THEN                      { ako je a vece od 1 tada }
    z := b / a                       { izraz1 - kolicinik }
  ELSE
    IF (-6 < a) AND (a <= 1) THEN    { ako je a iz opsega tada }
      z := a + 3                     { izraz2 - dodaj 3 }
	ELSE                             { inace }
      z := a + b;                    { izraz3 - suma brojeva }
	  
  Writeln('a=', a, ' b=', b,' z=', z);  { izlaz - ispis }
END.

Ispis na ekranu:

Index