7.2.. Napisati program za odredjivanje z po formuli:

Opis rješenja:

Listing programa: Izraz za poređenje je IF x-y < 2 THEN. Ako je izraz tačan izračunava se z = x + y; inače z = x - y.

PROGRAM P07211028;
USES
  WinCrt;
VAR                     { deklarisanje promjenljivih }
  x, y, z : REAL;       { realne promjenljive }
BEGIN
  WRITE('Dva broja ');     { ulazne promjenljive }
  READLN( x, y );          { ulaz - ucitavanje promjenljivihe }
  IF  x-y < 2 THEN         { ako je razlika x i y manja od 2,  x-y < 2, tada }
    z := x + y             { razlika x i y manja od 2, racuna x + y }
  ELSE                     { inace }
    z := x - y;            { logicki izraz lazan - racuna razliku x - y }
  Writeln('x= ', x, '  y= ', y, '  z= ', z);  { izlaz - ispis }
END.

Ispis na ekranu:

Index