7.2.. Napisati program koji za x>y umanjuje vrijednosti obe varijable ( x := x - 2; y := y - 2,) inaće uvećava vrijednosti obe varijable x := x + 2; y := y + 2.

Primjeri za izvođenje programa:
a) x = 2, y = 3 b) x = 3, y = 2 c) x = 2, y = 2
d) x = -2, y = -3 e) x = -3, y = 2 f) x = -1, y = -1

Listing programa:

REM P07211025
CLS
INPUT "Unesite prvi broj:", x
INPUT "Unesite drugi broj:", y
IF x>y THEN 
  x=x - 2
  y=y - 2 
ELSE 
  x=x + 2
  y=y + 2
END IF
PRINT "x="; x, "y="; y
END

II Varijanta
REM P07211025
CLS
INPUT "Unesite prvi broj:", x
INPUT "Unesite drugi broj:", y
IF x>y THEN 
  PRINT "X=";x - 2;"Y=";y - 2 
ELSE 
  PRINT "X=";x + 2;"Y=";y + 2
END IF
END

III Varijanta
REM P07211025
CLS
INPUT "Unesite prvi broj:", x
INPUT "Unesite drugi broj:", y
IF x>y THEN PRINT "X=";x - 2;"Y=";y - 2 ELSE PRINT "X=";x + 2;"Y=";y + 2
END

Ispis na ekranu:

Index