Согласие на обработку персональных данных.

18.08.2018
Новая задача Сколько слайдов поместится в песню.

17.08.2018
Новый раздел: Этюды для программистов.

11.08.2018
Новые видео и статья Обязательные теги HTML.

06.08.2018
Новый выпуск журнала Автоматизация и программирование.

27.07.2018
Новые видео и статья Процедура BlockRead.



Раздел: Стандартные функции Паскаля

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


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

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...
Инфо-МАСТЕР ®
Все права защищены ©
e-mail: mail@info-master.su

Яндекс.Метрика