7.2.. Napisati program za odredjivanje y po formuli:
.

Opis rješenja:

Listing programa:

I varijanta   3x if
PROGRAM P07211090;
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  x, y : INTEGER;    { cjelobrojne promjenljive }

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

     IF x < -2 then y := 2 * x;      { ako je x manje od -2 tada y := 2 * x }
     IF x = -2 then y := 3 * x + 1;  { ako je = -2 tada y := 3 * x + 1 }
     IF x > -2 then y := 1 - x;      { ako je x vece od -2 tada y := - 1 - x }
     
  Writeln('Broj = ', x, ' y = ', y);   { izlaz - ispis }
END.


II varijanta   if then else
PROGRAM P07211090;
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  x, y : INTEGER;    { cjelobrojne promjenljive }

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

  IF x < -2 THEN           { ako je x manje od -2 tada }
    y := 2 * x             { izraz1 - y := 2 * x }
  ELSE
    IF x = -2 THEN         { inace }
      y := 3 * x + 1       { izraz1 - y = 3 * x + 1 }
    ELSE
      y := 1 - x;          { izraz1 - y = 1 - x }
     
  Writeln('Broj = ', x, ' y = ', y);    { izlaz - ispis }
END.

Ispis na ekranu:

Index