Min и Max

Нахождение Min и Max. В данной статье рассмотрим способ, как найти Min и Max без использования if.

            Для этого нам понадобится, скажем, два edit и две кнопки. Разместите эти элементы на форме по своему усмотрению. Для всех edit поставьте свойство text в значение скажем “0”. А для кнопок значение caption в “Min” и “Max”. После этого можно приступать к написанию кода.

 

Код для первой кнопки:

 

procedure TForm1.Button1Click(Sender: TObject); //Нахождения Max

var

a,b: real;

begin

a:=StrToFloat(edit1.Text); //Присваивание переменным значения

b:=StrToFloat(edit2.Text);

label1.Caption:=FloatToStr(abs((a+b)/2-a)+((a+b)/2)); //Вывод результата

end;

 

Код для второй кнопки:

 

procedure TForm1.Button1Click(Sender: TObject); //Нахождения Min

var

a,b: real;

begin

a:=StrToFloat(edit1.Text); //Присваивание переменным значения

b:=StrToFloat(edit2.Text);

label1.Caption:=FloatToStr((abs((a+b)/2-a))*-1+((a+b)/2)); //Вывод результата

end;

  

            Как видно из кода его главной составляющей являются одна формула. Для нахождения Max она состоит из двух основных частей. Первая это