Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

помогите!!!!! Завтра ЗАЧЕТ!!!

5-9 класс

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

Vikulenchik79 12 янв. 2017 г., 2:44:47 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Kaytanova1979
12 янв. 2017 г., 5:38:30 (7 лет назад)

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.

Ответить

Другие вопросы из категории

Читайте также

Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить модулем; если отрицательно только одно из них, то оба значения

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

Программа спрашивает сокращенное имя, а выдает полное (например, Саша - Александр) для четырех ваших знакомых. Ввод незнакомого имени должен

провоцировать заявление типа: "Я с вами не знаком".

помогите пожалуйста, задачу надо решить 3 способами 1- постановка задачи 2- запись алгоритма ( блок схема) 3- программа (задача на ветвление) пожалуйста помогите, завтра сдавать а мне еще 7 таких



Вы находитесь на странице вопроса "помогите!!!!! Завтра ЗАЧЕТ!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.