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

Opis rješenja:

Listing programa:

PROGRAM P07211090;
VAR                  { deklarisanje promjenljivih }
  x, y : INTEGER;    { cjelobrojna promjenljiva }

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 }
  READLN;
END.

Ispis na ekranu:

Index