Нахождение max(min(a,b), min(c,d))

02.10.2013, 18:12. **Показов** 3033. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Здравствуйте! Буду очень благодарна, если кто поможет.
Нужно написать программу на языке дельфи нахождения max(min(a,b), min(c,d))

@Waddonator · 02.10.2013, 18:29

1) На форму добавьте 4 Edit'а и 1 Button.
2) Добавьте 2 функции нахождения максимума и минимума

Delphi

function max(a,b:double):double;
begin
  if a>b then result:=a else result:=b;
end;
 
function min(a,b:double):double;
begin
  if a<b then result:=a else result:=b;
end;

3) В обработчике события нажатия кнопки добавьте код:

Delphi

var a,b,c,d:double;
begin
  a:=StrToFloatDef(Edit1.Text,0);
  b:=StrToFloatDef(Edit2.Text,0);
  c:=StrToFloatDef(Edit3.Text,0);
  d:=StrToFloatDef(Edit4.Text,0);
  ShowMessage(FloatToStr(max(min(a,b),min(c,d))));
end;

@Vabos · 03.10.2013, 13:25

Зачем писать функции Min/Max, если они уже описаны в Math?

@Waddonator · 03.10.2013, 13:28

Vabos, чтобы хоть как-то было похоже на программу. А код в одну строку "программой" с натяжкой можно назвать.

Ftpppgtuk
		1
	Нахождение max(min(a,b), min(c,d)) 02.10.2013, 18:12. Показов 3033. Ответов 3 Метки нет (Все метки) Здравствуйте! Буду очень благодарна, если кто поможет. Нужно написать программу на языке дельфи нахождения max(min(a,b), min(c,d))

@Vabos 132 / 129 / 31 Регистрация: 12.12.2011 Сообщений: 462
	03.10.2013, 13:25	3
	Зачем писать функции Min/Max, если они уже описаны в Math? 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	03.10.2013, 13:28	4
	Vabos, чтобы хоть как-то было похоже на программу. А код в одну строку "программой" с натяжкой можно назвать. 0