Процедуры Делфи

[RONS]

t=min(a,b,c)/min(a^2,b,c)+min(c,a^2,(b-c))/min(max(a,b^2)b^2,c)

implementation

{$R *.dfm}
procedure min (x,y,z:Real; var m:Real);
begin
if x>y then m:=x else m:=y;
if z<m then m:=z;

procedure TForm1.btn1Click(Sender: TObject);
var a,b,c,max,min,t,f1,f2,f3:Real;
end;

begin
a:=StrToFloat(edt1.text);
b:=StrToFloat(edt2.text);
c:=StrToFloat(edt3.text);
(min(a,b,c),f1);
(min(Sqr(a),b,c,f2));
(min(c,Sqr(a),(b-c),f3));
(min(max(a,Sqr(b)),Sqr(b),c,f4));
t:=f1/f2+f3/f4;
mmo1.clear;
mmo1.lines.add('результат');
mmo1.lines.add('t='+IntToStr(t));
end;

Скажите пожалуйста что нада дописать?

[Mad_Cat]

Скажите пожалуйста что нада дописать?

нада дописать

процедуру Max для 3 чисел

[ByAlex]

Дак здесь нужно функции использовать, они возвращают значение!

[RONS]

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

процедуру MIN для 3 чисел

if a<b then a:=min else b:=min
if c<min then c:=min;

так правильно ?

[RONS]

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

Дак здесь нужно функции использовать, они возвращают значение!

Тема лабы процедуры)

[New man]

implementation

{$R *.dfm}
function min (x,y,z:Real):real;
begin
if x<y then result:=x else result:=y;// ошибка у тя
if z<result then result:=z;
end;

procedure TForm1.btn1Click(Sender: TObject);
var a,b,c,max,min,t,f1,f2,f3:Real;


begin
a:=StrToFloat(edt1.text);
b:=StrToFloat(edt2.text);
c:=StrToFloat(edt3.text);
f1:=(min(a,b,c));
f2:=(min(Sqr(a),b,c));
f3:=(min(c,Sqr(a),(b-c)));
f4:=(min(max(a,Sqr(b)),Sqr(b),c));
t:=f1/f2+f3/f4;
mmo1.clear;
mmo1.lines.add('результат');
mmo1.lines.add('t='+IntToStr(t));
end;

[New man]

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

t=min(a,b,c)/min(a^2,b,c)+min(c,a^2,(b-c))/min(max(a,b^2)b^2,c)

var a,b,c,max,min,t,f1,f2,f3:Real;

Как это Max
ИМХО, надо писать функцию

function max (x,y,z:Real):real;
begin
if x>y then result:=x else result:=y;
if z>result then result:=z;
end;

[RONS]

Сообщение от New man

implementation

{$R *.dfm}
function min (x,y,z:Real):real;
begin
if x<y then result:=x else result:=y;
if z<result then result:=z;
end;

procedure TForm1.btn1Click(Sender: TObject);
var a,b,c,max,min,t,f1,f2,f3:Real;


begin
a:=StrToFloat(edt1.text);
b:=StrToFloat(edt2.text);
c:=StrToFloat(edt3.text);
f1:=(min(a,b,c));
f2:=(min(Sqr(a),b,c));
f3:=(min(c,Sqr(a),(b-c)));
f4:=(min(max(a,Sqr(b)),Sqr(b),c));
t:=f1/f2+f3/f4;
mmo1.clear;
mmo1.lines.add('результат');
mmo1.lines.add('t='+IntToStr(t));
end;

В красной строке чтото не так.
немогу понять что.

[New man]

убери лишние скобки

[RONS]

Сообщение от New man

убери лишние скобки

Скобки в норм количестве