помогите безотлагательно мне через паскаль надобно: Даны два реальных числа X и

помогите безотлагательно мне через паскаль надо:
Даны два действительных числа X и Y, не равные друг другу. Поменять наименьшее из этих чисел половиной их суммы, а большее их удвоенным произведением. Раз-работать схему алгоритма для решения этой задачи. Протестировать алгоритм на числах 5.5 и -4.3, а так-же на числах 1 и 14.5.

Задать свой вопрос
Люба Пастак
Можно я просто напишу программу без схемы?
2 ответа
Вот программка и итог теста (гляди снимки экрана)
Программка:
var
  x, y, tmp: real;
 
begin
  writeln('Начальные числа:');
  write('X = ');
  read(x);
  write('Y = ');
  read(y);
  if x gt; y then
  begin
    tmp := x;
    x := 2 * x * y;
    y := (tmp + y) / 2;
  end
  else
  begin
    tmp := y;
    y := 2 * x * y;
    x := (tmp + x) / 2;
  end;
  writeln('Итог:');
  writeln('X = ', x);
  writeln('Y = ', y);
end.
Пример 1:
Исходные числа:
X = 5.5
Y = -4.3
Итог:
X = -47.3
Y = 0.6
Пример 2:
Начальные числа:
X = 1
Y = 14.5
Итог:
X = 7.75
Y = 29
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт