Даны действительные числа х и у. Если х, у — отрицательны, то каждое значение заменить его модулем; если отрицательно хотя бы одно из них, то оба значения увеличить на 0,5; в остальных случаях х и у оставить неизменными.- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
  CLS
  INPUT "X: ", X
  INPUT "Y: ", Y
IF X < 0 AND Y < 0 THEN
 X = ABS(X):  Y = ABS(Y)
ELSEIF X < 0 OR Y < 0 THEN
 X = X + .5: Y = Y + .5
END IF
PRINT STRING$(10, 196)
PRINT "X:"; X
PRINT "Y:"; Y

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment