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

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

25.11.2012, 17:01. Просмотров 1804. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

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

1
Reveng
422 / 422 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
25.11.2012, 17:08 2
Лучший ответ Сообщение было отмечено HAN777 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  a, b, c : real;
 
begin
Write('Введите два числа: ');
Readln(a, b);
if (a > b) then 
  begin
  c := a;
  a := 2*a*b;
  b := (c + b)/2;
  end else if (a < b) then
    begin
    c := b;
    b := 2*a*b;
    a := (a + c)/2 ;
    end;
Writeln('a = ', a, ' b = ', b);  
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2012, 17:08

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

Меньшее из трех чисел заменить полусуммой двух других
Если сумма трех попарно различных действительных чисел x, y и z меньше единицы, то наименьшее из...

Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их удвоенным произведением
Даны 2 числа. Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их...


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

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

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