Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 242

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Не могли бы вы написать программу такого типа:
Даны x,y,z. Получить:
1)max(x+y+z, xyz)
2)min(x+y+z)/2, xyz)+1

Заранее спасибо)

Денис-1606 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Денис-1606 (статус: Посетитель)
Вопрос отправлен: 28 декабря 2007, 22:56
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

C наступающим!

{
  Даны x,y,z. Получить:
  1)max(x+y+z, xyz)
  2)min(x+y+z)/2, xyz)+1
}
 
program p1242;
 
{$APPTYPE CONSOLE}
 
function min(const a, b: Extended): Extended;
begin
  if (a < b)
    then Result:= a
    else Result:= b;
end;
 
function max(const a, b: Extended): Extended;
begin
  if (a > b)
    then Result:= a
    else Result:= b;
end;
 
var
  x, y, z: Extended;
 
begin
  Write(' ? x = ');
  ReadLn(x);
  Write(' ? y = ');
  ReadLn(y);
  Write(' ? z = ');
  ReadLn(z);
 
  WriteLn('   max(x+y+z, xyz) = ', max(x+y+z, x*y*z): 3: 6);
  WriteLn('   min(x+y+z)/2, xyz)+1 = ', min((x+y+z)/2, x*y*z)+1 : 3: 6);
 
  ReadLn;
end.

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 29 декабря 2007, 08:27
Оценка за ответ: 5


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 18 октября 2017, 06:57
Выполнено за 0.05 сек.
Рейтинг@Mail.ru