Как определить четное или нечетное число в Pascal

Определение четности или нечетности числа — это одна из базовых задач, которую решают при изучении циклов на языке программирования Pascal. В языке программирования Pascal есть несколько способов определения четности или нечетности числа, которые мы рассмотрим в этой статье.

Алгоритмы определения четности и нечетности числа

Существует несколько способов определения четности и нечетности числа в языке программирования Pascal. Рассмотрим два основных метода:

1. Метод деления на 2: Для определения четности или нечетности числа можно использовать операцию взятия остатка от деления на 2. Если остаток от деления равен нулю, число четное, в противном случае — нечетное.
2. Проверка младшего бита: В двоичном представлении числа, младший бит равен 0 для четных чисел и 1 для нечетных. Можно использовать побитовую операцию «И» с маской 1, чтобы проверить младший бит числа.

Оба этих метода применимы для определения четности и нечетности числа в Pascal. Давайте рассмотрим их более подробно и реализуем в коде.

Определение четности числа с помощью деления на 2

Начнём с первого метода. Для проверки остатка от деления мы будем использовать mod. Для начала рассмотрим код программы, а после подробно разберём как он работает.

Код программы

program CheckEvenOdd;

var
    num: integer;

begin
    writeln('Введите число: ');
    readln(num);

    if num mod 2 = 0 then
        writeln('Число ', num, ' является четным.')
    else
        writeln('Число ', num, ' является нечетным.');
end.

Объяснение кода

1. Сначала объявляется переменная num, которая будет хранить введенное пользователем число. Тип переменной integer указывает на то, что num должна содержать целочисленное значение.
2. После этого программа выводит на экран приглашение для пользователя ввести число с помощью процедуры writeln.
3. С помощью процедуры readln программа считывает введенное пользователем число и сохраняет его в переменной num.
4. Далее программа использует условный оператор if-else, чтобы проверить, делится ли введенное число на 2 без остатка (то есть, является ли четным). Условие num mod 2 = 0 проверяет, равен ли остаток от деления числа на 2 нулю. Если это условие выполняется, программа выводит сообщение о том, что число четное, используя процедуру writeln. В противном случае программа выводит сообщение о том, что число нечетное.
5. Заключительное ключевое слово end завершает тело программы.

Определение четности числа с помощью проверки младшего бита

Второй способ, как мы говорили ранее, заключается в проверки младшего бита. Если младший бит равен 0, то число является четным, в противном случае оно нечетное. Давайте посмотрим на реализацию этого метода, а после разберём работу кода.

Код программы

program CheckEvenOdd;

var
    num: integer;

begin
    writeln('Введите число: ');
    readln(num);

    if (num and 1) = 0 then
        writeln('Число ', num, ' является четным.')
    else
        writeln('Число ', num, ' является нечетным.');
end.

Объяснение кода

1. Объявляется переменная num, которая будет использоваться для хранения введенного пользователем числа. Тип переменной integer указывает на то, что переменная должна содержать целочисленное значение.
2. После объявления переменной программа выводит на экран приглашение для пользователя ввести число с помощью процедуры writeln.
3. С помощью процедуры readln программа считывает введенное пользователем число и сохраняет его в переменной num.
4. Затем программа использует побитовую операцию «И» (and) с маской 1, чтобы проверить младший бит в двоичном представлении числа. Если младший бит равен 0, это означает, что число четное (так как младший бит равен 0 для четных чисел в двоичном представлении), и программа выводит соответствующее сообщение. В противном случае, если младший бит равен 1, число нечетное, и программа также выведет соответствующее сообщение.
5. Заключительное ключевое слово end завершает тело программы.