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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

skype: newerow1989
По умолчанию

Код:
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, 11:33   #3
Torrich
 
Регистрация: 22.09.2019
Сообщений: 6
Репутация: 10
По умолчанию

Да, понравится!
Спасибо!
Torrich вне форума   Ответить с цитированием
Старый 22.09.2019, 11:39   #4
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,774
Репутация: 1673

skype: newerow1989
По умолчанию

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

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

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

Последний раз редактировалось digitalis; 22.09.2019 в 13:54.
digitalis вне форума   Ответить с цитированием
Старый 22.09.2019, 13:53   #7
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,986
Репутация: 6725
По умолчанию

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


13:11.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.