Что такое odd в паскале

Что в Паскале за функция Odd?

определяет является ли целое число нечетным. т. е. возвращает true для нечетных, false для четных.
Это типа такое экстремальное ускорение с проверкой всего одного бита вместо использования тяжелой операции целочисленного деления 🙂

Остальные ответы

Похожие вопросы

Ваш браузер устарел

Мы постоянно добавляем новый функционал в основной интерфейс проекта. К сожалению, старые браузеры не в состоянии качественно работать с современными программными продуктами. Для корректной работы используйте последние версии браузеров Chrome, Mozilla Firefox, Opera, Microsoft Edge или установите браузер Atom.

Функция Odd

Функция Odd в Паскале определяет, является ли число чётным или нечётным. Синтаксис:

function odd(N : LongInt) : Boolean; function odd(N : LongWord) : Boolean; function odd(N : Int64) : Boolean; function odd(N : QWord) : Boolean;

Функция Odd возвращает TRUE, если число является НЕчётным. Иначе возвращает FALSE.

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

Если в функцию передано чётное число, то она возвращает FALSE. Следовательно, чтобы проверить, является ли число чётным, надо результат функции сравнить с FALSE:

if not Odd(x) then WriteLn(‘x — чётное число ‘);

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

Если в функцию передано нечётное число, то она возвращает TRUE. Следовательно, чтобы проверить, является ли число нечётным, надо результат функции сравнить с TRUE:

if Odd(x) then WriteLn(‘x — нечётное число ‘);

Пример программы, где используется функция Odd:

program oddtest; var x : Integer; begin Randomize; x := Random(100); if Odd(x) then //Если число нечётное WriteLn('x = ', x, ' - odd number') else //Если число чётное WriteLn('x = ', x, ' - even number'); WriteLn('Press ENTER. '); //Вывести числа от 1 до 8 в два столбца for x := 1 to 8 do if Odd(x) then Write(x, ' ') else WriteLn(x); WriteLn('Then end. Press ENTER. '); ReadLn; end.

Что такое odd в паскале

Is a value odd or even ?

Declaration

Source position: systemh.inc line 894

Description

Odd returns True if X is odd, or False otherwise.

Errors

See also

Calculate absolute value

Return ordinal value of an ordinal type.

Example

Program Example43; begin If Odd(1) Then Writeln ('Everything OK with 1 !'); If Not Odd(2) Then Writeln ('Everything OK with 2 !'); end. 

Вывести нечетное число

Из двух чисел с разной четностью вывести на экран нечетное число.

Примеры работы программы

Введите одно четное и одно нечетное число 4 5 5 - нечетное число

Введите одно четное и одно нечетное число 5 4 5 - нечетное число

Исходный код программы (решение задачи) на языке Паскаль

var a, b: integer; begin writeln('Введите одно четное и одно нечетное число'); readln(a, b); if a mod 2 <> 0 then writeln(a, ' - нечетное число') else writeln(b, ' - нечетное число'); end.

Пользователь вводит четное и нечетное число. Последовательность их ввода может быть любой. Таким образом, неизвестно какая из двух переменных ( a или b ) содержит нечетное число. Чтобы выяснить это, используется конструкция условного ветвления (if-else), а также операция нахождения остатка от целочисленного деления (mod).

Если результат нахождения остатка от деления значения переменной a на 2 неравен ( <> ) нулю, значит эта переменная содержит нечетное число. Иначе нечетное число находится в переменной b , и тогда его следует вывести на экран.

В данном случае предполагается, что пользователь осуществляет ввод правильно, то есть всегда вводит одно четное и одно нечетное число. Если же ввод был некорректный (два четных или два нечетных числа), то программа будет работать неправильно. В случае двух четных чисел программа выведет второе. В случае двух нечетных — первое введенное. Чтобы избежать подобных недоразумений, программу можно усовершенствовать следующим образом:

var a, b: integer; begin writeln('Введите одно четное и одно нечетное число'); readln(a, b); if (a mod 2 = 0) and (b mod 2 <> 0) then writeln(b,' - нечетное число') else if (a mod 2 <> 0) and (b mod 2 = 0) then writeln(a,' - нечетное число') else writeln('Некорректный ввод'); end.

В данном случае в заголовках условного оператора проверяются оба числа: одно — на четность, другое — на нечетность. Если оба будут четные, или оба будут нечетные, то сработает тело вложенного оператора else.

Введите одно четное и одно нечетное число 3 5 Некорректный ввод

Введите одно четное и одно нечетное число 4 10 Некорректный ввод

Введите одно четное и одно нечетное число 8 13 13 - нечетное число