Нахождение 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 она состоит из двух основных частей. Первая это |(а+b)/2-a|, а вторая (a+b)/2, обе эти части потом суммируются. Для нахождения Min необходимо лишь помножить первую часть на -1.

Данные операции можно использовать не только в Delphi, но и в других языках.

Всё на этом статья закончена.