Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения неотрицательны и ни одно из них не пренадлежит отрезку [0.5; 2,0], то оба значения уменьшить в 10 раз; в остальных случаях x и y остаются без изменения. Помогите, завтра зачет.

Question

Информатика

Коня

20 апреля, 06:49

Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения неотрицательны и ни одно из них не пренадлежит отрезку [0.5; 2,0], то оба значения уменьшить в 10 раз; в остальных случаях x и y остаются без изменения. Помогите, завтра зачет.

+1

Ответы (1)

Знаете ответ?

Оксана · Answer 1

var

x, y: real;

begin

readln (x, y) ;

if ((x < 0) and (y < 0)) then

begin

x : = abs (x) ;

y : = abs (y) ;

end

else

if (((x = 0)) or ((x > = 0) and (y < 0))) then

begin

x + = 0.5;

y + = 0.5;

end

else

if (((0.5 < = x) and (x < = 2)) or ((0.5 < = y) and (y < = 2))) then

begin

x / = 10;

y / = 10;

end;

writeln (x, ' ', y) ;

end.