максимальное из трёх чисел (Delphi)

[WADADA]

Помогите написать задачу в Delphi "Найти максимальное значение из трех чисел a,b,c."

В Delphi не шарю вообще! помогите кто может! Заранее благодарю....

[Neobrat]

вот тебе функция, сможешь ее сам то добавить в проект!? )))
если нет то извеняй...

function MaxValues(a,b,c:Double):Double;
var value:array[0..2] of Double;
begin
value[0]:=a;
value[1]:=b;
value[2]:=c;
result:=MaxValue(value);
end;

[Чешитепузо]

я вот думаю это сильно замудренно написано! лучше поробуй так!
function max(x,y,z:real):real;
begin
if (x>y) and (x>z) then max := z
else if (y>x) and (y>z) then max := y
else if (z>x) and (z>y) then max := z;
end;