Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Настя394
0 / 0 / 0
Регистрация: 18.08.2016
Сообщений: 13
1

Заменить меньшее из пары вещественных чисел их полусуммой, большее - удвоенным произведением

18.08.2016, 21:42. Просмотров 958. Ответов 1
Метки нет (Все метки)

Даны два вещественных числа не равных друг другу. Составить алгоритм и написать программу позволяющую заменить меньшее из чисел половиной их суммы, а большее – их удвоенным произведением.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.08.2016, 21:42
Ответы с готовыми решениями:

Меньшее из этих двух чисел заменить их полусуммой, а большее – их удвоенным произведением
Вроде простая задача, а вот что-то не так. Подскажите пожалуйста! Задача:"Даны действительные числа...

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

Даны действительные числа х, у (х не равно у). Меньшее из этих двух чисел заменить их полусуммой, а большее – их удвоенным произведением.
нашел похожее,но работает не совсем правильно,так как пр подстановке х=5 и у=3 выдает,что х=40 и...

Меньшее из чисел заменить половиной из суммы, большее — их удвоенным произведением
Добрый вечер. Нужна ваша помощь, пожалуйста. 1. Даны 2 числа , неравные друг другу. Меньшее из них...

Меньшее из двух чисел заменить половинной суммы, а большее - удвоенным произведением
№1 Даны два действительных числа, не равные друг другу. Меньшее из этих двух чисел заменить...

1
Puporev
Модератор
57222 / 43671 / 30175
Регистрация: 18.05.2008
Сообщений: 104,117
19.08.2016, 09:27 2
Лучший ответ Сообщение было отмечено Настя394 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var a,b:real;
begin
repeat
writeln('Введите 2 неравных вещественных числа');
readln(a,b);
until a<>b;
if a<b then
 begin
  a:=(a+b)/2;
  b:=2*a*b;
 end
else
 begin
  b:=(a+b)/2;
  a:=2*a*b;
 end;
writeln('a=',a:0:2,' b=',b:0:2);
end.
0
Миниатюры
Заменить меньшее из пары вещественных чисел их полусуммой, большее - удвоенным произведением  
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.08.2016, 09:27

Даны действительные числа x, y (x≠y). Большее из этих чисел заменить их полусуммой, меньшее – их утроенным
Даны действительные числа x, y (x≠y). Большее из этих чисел заменить их полусуммой, меньшее – их...

Подпрограмма: меньшее из двух чисел заменить их полусуммой, а большее - их удвоенным произведением
Оформите через процедуру или функцию действительные числа x, y. Меньшее из этих двух чисел...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru