Функция 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.

Вступить в группу "Основы программирования"

Подписаться на канал в РУТУБ

Подписаться на Дзен-канал

Подписаться на рассылки по программированию

Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...

Помощь в технических вопросах

Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение - ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. Подробнее...

Главная
Контакты