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:
![](../../pascal/pascal_prir/072/072_izvedi/07211031.gif)
Index
|
![](../epp/000/Asistent.jpg) |