Найти максимальное из трех вещественных значений

@Elviraa · Регистрация: 09.06.2015

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

Delphi

procedure TForm1.ComboBox1Change(Sender: TObject);
type mon=(Met1,Met2,Met3);
var
d,d1,d2,d3:real;
p:mon;
begin
case Combobox1.ItemIndex of
0: p:=Met1;
1: p:=Met2;
2: p:=Met3;
end;
if 0=ord(p) then
d:=1-d1
else if 1=ord(p) then
d:=1-d2
else if 2=ord(p) then
d:=1-d3;
Edit3.Text:=FloatToStrF(d,ffFixed,15,3);
end;

Значения d1,d2,d3 я расписывать не стала (грамоздкие), но их вычисления в этой процедуре есть.

Помогите, пожалуйста, определить максимальное значение d среди этих трех значений..? Мне оно нужно будет для дальнейшей работы..
спасибо заранее!

@northener · 15.06.2015, 12:45

Сообщение от Elviraa

Помогите, пожалуйста, определить максимальное значение d среди этих трех значений

Delphi

uses Math;
...
var
d,d1,d2,d3: Extended;
...
  M:=MaxValue([d1,d2,d3]);

@Elviraa · 15.06.2015, 13:05 **[ТС]**

А почему максимальные значения среди d1,d2,d3 ? - они ведь только вспомогательные элементы при расчете d

@northener · 15.06.2015, 13:16

Сообщение от Elviraa

А почему максимальные значения среди d1,d2,d3 ?

Это только пример. Сама подставь в функцию то что именно тебе нужно.

@Elviraa · 15.06.2015, 14:13 **[ТС]**

аа, спасибо большое!

@Elviraa 0 / 0 / 0 Регистрация: 09.06.2015 Сообщений: 8
	15.06.2015, 13:05 [ТС]	3
	А почему максимальные значения среди d1,d2,d3 ? - они ведь только вспомогательные элементы при расчете d 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	15.06.2015, 13:16	4
	Сообщение от Elviraa А почему максимальные значения среди d1,d2,d3 ? Это только пример. Сама подставь в функцию то что именно тебе нужно. 0

@Elviraa 0 / 0 / 0 Регистрация: 09.06.2015 Сообщений: 8
	15.06.2015, 14:13 [ТС]	5
	аа, спасибо большое! 0