Вопрос по информатике:
помогите срочно мне через паскаль надо:
Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. Раз-работать схему алгоритма для решения этой задачи. Протестировать алгоритм на числах 5.5 и -4.3, а так-же на числах 1 и 14.5.
- 11.03.2018 10:33
- Информатика
- remove_red_eye 19064
- thumb_up 6
Ответы и объяснения 2
Программа:
var
x, y, tmp: real;
begin
writeln('Исходные числа:');
write('X = ');
read(x);
write('Y = ');
read(y);
if x > 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
- 12.03.2018 02:22
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.