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

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

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

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

Вопрос задал: Денис-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

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

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

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