Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/16: Рейтинг темы: голосов - 16, средняя оценка - 4.88
Prog Denis
1

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

26.11.2013, 20:56. Просмотров 3233. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
13 / 13 / 14
Регистрация: 05.10.2013
Сообщений: 141
27.11.2013, 00:28 2
Лучший ответ Сообщение было отмечено как решение

Решение

Prog Denis,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Var a,b,c:real;
Begin
repeat
     Write ('Ââåäèòå ÷èñëî à : ');
     readln (a);
     Write ('Ââåäèòå ÷èñëî b : ');
     readln (b);
until a<>b;
 
if a>b then
  begin
       c:=b;
       b:=a;
       a:=c;
 
  end;
  c:=b;
 
  b:= 2 *a*b;
  a:= (a+c)/2;
 
  writeln ('a = ',a);
  writeln ('b = ',b);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2013, 00:28

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

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

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

Меньшее из этих двух чисел заменить их полусуммой, а большее — их удвоенным произведением
Даны действительные числа х, у (х у). Меньшее из этих двух чисел заменить их полусуммой, а большее...

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


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

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

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