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

Question

Информатика

Савёл

9 января, 14:42

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

+4

Ответы (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.