помогите!!!!! Завтра ЗАЧЕТ!!!
5-9 класс
|
Даны действительные числа x, y. Если x иДаны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения неотрицательны и ни одно из них не пренадлежит отрезку [0.5;2,0], то оба значения уменьшить в 10 раз ; в остальных случаях x и y остаются без изменения . Помогите , завтра зачет.
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) and (y >= 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.
Другие вопросы из категории
фамилию отдельно имя и отдельно отчество, а потом ещё и инициалы ОЧЕНЬ НАДО)
Читайте также
увеличить на 0,5; если оба значения неотрицательны и ни одно из них не пренадлежит отрезку [0.5;2,0], то оба значения уменьшить в 10 раз ; в остальных случаях x и y остаются без изменения . Помогите , завтра зачет.
умоляю помогите завтра урок
провоцировать заявление типа: "Я с вами не знаком".
помогите пожалуйста, задачу надо решить 3 способами 1- постановка задачи 2- запись алгоритма ( блок схема) 3- программа (задача на ветвление) пожалуйста помогите, завтра сдавать а мне еще 7 таких