Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



Min

показывает минимальное число из двух заданных

Описание:


    Delphi функция Min передаёт величину, наименьшую из двух числовых аргументов, A и B. Позволяет найти минимальное число.

     Эти аргументы могут быть любыми числовыми типами, в любой порядке. Результат будет с плавающей точкой, если хотя бы 1 аргумент с плавающей точкой.

Пример кода:

var
   int1, int2, int3 : Integer;
begin
   int1 := 37;
   int2 := 38;
   int3 := Min(int1, int2);

   ShowMessage('int1 = '+IntToStr(int1));
   ShowMessage('int2 = '+IntToStr(int2));
   ShowMessage('Min(int1, int2) = '+IntToStr(int3));
end;

Результат выполнения:

int1 = 37
int2 = 38
Min(int1, int2) = 37

Пример кода:

var
   int1 : Integer;
   float1 : single;
begin
   int1 := 38;
   float1 := 37.5;
   float1 := Min(float1, int1);
   ShowMessage('Min(float1, int1) = '+FloatToStr(float1));
end;

Результат выполнения:

Min(float1, int1) = 37.5