Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 22.09.2019, 09:52   #1
Torrich
 
Регистрация: 22.09.2019
Сообщений: 8
По умолчанию Для 3-х чисел А,В,С найти произведение двух наибольших, пользуясь формулой: P=(A*B*C)/min(A,B,C)

Для 3-х чисел А,В,С найти произведение двух наибольших, пользуясь формулой: P=(A*B*C)/min(A,B,C)
Torrich вне форума Ответить с цитированием
Старый 22.09.2019, 10:28   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,802
По умолчанию

Код:
function min(a,b,c:real):real;
begin
   Result:=a;
   If Result>b then
      Result:=b;
   If Result>c then
      Result:=c;
end;

var a,b,c,p:real;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Write('c = '); Readln(c);
   p:=a*b*c/min(a,b,c);
   Writeln(p:0:8);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 22.09.2019, 10:33   #3
Torrich
 
Регистрация: 22.09.2019
Сообщений: 8
По умолчанию

Да, понравится!
Спасибо!
Torrich вне форума Ответить с цитированием
Старый 22.09.2019, 10:39   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,802
По умолчанию

С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 22.09.2019, 12:49   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,061
По умолчанию

че то формула P=(A*B*C)/min(A,B,C) не соответствует произведению двух наибольших. Не?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 22.09.2019, 12:51   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 2,504
По умолчанию

Как это? Троих перемножили, младшего - из произведения выкинули. Все правильно.
5 * 6 * 7 = 210
210 / 5 = 42 = 6 * 7

Последний раз редактировалось digitalis; 22.09.2019 в 12:54.
digitalis вне форума Ответить с цитированием
Старый 22.09.2019, 12:53   #7
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,061
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Все правильно
Почти. А если наименьшее = 0 ?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 22.09.2019, 19:19   #8
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 2,504
По умолчанию

А на 0 делить ниизя ! Фейсконтроль на 0 нужно устроить дополнительно.
digitalis вне форума Ответить с цитированием
Старый 22.09.2019, 19:23   #9
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,061
По умолчанию

Отож. Для 0, 2, 3 по формуле низзя. А здравый смысл подсказывает, что ответ 6 )
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В массиве найти произведение двух заданных последовательностей чисел; полученные произведения сравнить alexshem Visual C++ 1 19.02.2017 12:17
Найти произведение двух наибольших чисел Ky3bka23 Паскаль, Turbo Pascal, PascalABC.NET 7 14.05.2015 16:45
Turbo Pascal - Составить программу нахождения произведения двух наибольших из трех введенных с клавиатуры чисел.(Условный оператор lady.unika Паскаль, Turbo Pascal, PascalABC.NET 3 05.05.2012 20:36
Выбор из диапазона чисел двух наибольших dexerr Microsoft Office Excel 2 26.05.2011 23:17
Найти произведение первых трёх наибольших элементов Матриц - паскаль Sandrewz Помощь студентам 4 15.10.2010 19:25


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS