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

Question

Информатика

Лика

14 ноября, 04:27

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

+5

Ответы (1)

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

Аксюня · Answer 1

Var a, b, c, d:real;

begin

read (a, b);

if a>=b then

beginc:=a;

a: = (a+b) * 2;

b: = (c+b) / 2;

end else begin

c:=b;

b: = (a+b) * 2;

a: = (c+b) / 2;

end;

end.