Даны два числа х и у.Если х и у отрицательны.то каждое знач заменить его модулем ; Если...

Question

Даны два числа х и у.Если х и у отрицательны.то каждое знач заменить его модулем ; Если отриц только 1 то оба знач увеличить на 0,5 ; если оба знач неотрицательны то оба знач уменьшить в 10 раз.Написать на qbasic

Answer 1

CLS
INPUT "x = ", x
INPUT "y = ", y
IF x < 0 AND y < 0 THEN
x = -x
y = -y
ELSE
    IF x < 0 XOR y < 0 THEN
    x = x + .5
    y = y + .5
    ELSE
    x = x - 10
    y = y - 10
    END IF
END IF
PRINT "x = "; x
PRINT "y = "; y

Comments

В 8 строчке так и оставить или там for?

---

Эта программа проверенная, рабочая... Ничего менять не надо.

---

Ok,спасибо