В языке программирования Delphi для определения четности числа можно использовать встроенную функцию Odd. Эта функция принадлежит к системе System и проверяет, является ли число нечетным.
Пример использования функции Odd в Delphi
type
TIntArray = array of Integer;
function IsEven(number: Integer): Boolean;
begin
Result := not Odd(number);
end;
procedure CheckEvenNumbers(numbers: TIntArray);
var
i: Integer;
begin
for i := 0 to High(numbers) do
begin
if IsEven(numbers[i]) then
WriteLn(IntToStr(numbers[i]) + ' is even')
else
WriteLn(IntToStr(numbers[i]) + ' is odd');
end;
end;
var
nums: TIntArray;
begin
nums := [1, 2, 3, 4, 5];
CheckEvenNumbers(nums);
end.
Применение функции Odd
Функция Odd принимает в качестве аргумента целое число и возвращает True, если число нечетное, и False, если четное. В приведенном примере функция IsEven использует Odd для определения четности, возвращая обратное значение (т.е. для четных значений возвращает True).
Функция CheckEvenNumbers демонстрирует, как можно проверить массив чисел на четность, распечатывая результат для каждого элемента.
Заключение
Функция Odd — простой и эффективный способ проверки четности числа в Delphi. Она позволяет легко интегрировать проверку четности в любые программы, работающие с целыми числами.
Ключевые слова: Delphi, четность, функция Odd.
Категория: Программирование
Теги: Delphi, четность, функции