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

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

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

Составить программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее - полусуммой этих чисел.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2012, 17:01
Ответы с готовыми решениями:

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

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

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

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

1
422 / 422 / 338
Регистрация: 25.06.2012
Сообщений: 668
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2012, 17:08

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

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


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

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

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