Главная Всё о Delphi Регистрация

Вход

Приветствую Вас Гость | RSSСреда, 23.05.2018, 06:31
Меню сайта

Категории каталога
Начинающим [44]
Материалы для начинающих
Трюки [2]
Трюки
Разное [94]
Материалы на разные темы

Наш опрос
Какой версией Delphi вы пользуетесь?
Всего ответов: 118

Каталог статей
Главная » Статьи » Трюки

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

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

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

Категория: Трюки | Добавил: Дубин (22.10.2007) | Автор: Дубин Михаил Олегович
Просмотров: 1188 | Рейтинг: 5.0/1 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Рейтинг@Mail.ru

Реклама

Copyright MyCorp © 2018Сайт управляется системой uCoz