Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/14: Рейтинг темы: голосов - 14, средняя оценка - 5.00
Prog Denis
0 / 0 / 0
Регистрация: 23.11.2013
Сообщений: 1
1

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

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

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

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

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

Меньшее из двух чисел заменить половиной их суммы,а большее их удвоенным произведением.
уважаемые форумчане помогите или объясните )как сделать эту программу. Даны действительные...

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

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

1
Dj Programmer
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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2013, 00:28

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

Заменить из двух данных чисел меньшее число модулем разности
всем привет) 1.составьте программу, Заменяющую иЗ двух данных чисел меньшее число модулем...

Если сумма двух чисел меньше числа С,заданого с клавиатуры, то наименьшие из них заменить их удвоенным произведением
С клавиатуры введены 2 целый числа А и Б.Если их сумма меньше числа С,заданого с клавиатуры,то...


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

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

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