Логические типы

Стандартный логический тип Boolean (размер - 1 байт) представляет собой тип данных, любой элемент которого может принимать лишь два значения: True и False (false<true).

В Турбо Паскале есть три логических типа: bytebool(1 байт),wordbool (2 байта), longbool (4 байта). Они введены для унификации с другими языками программирования и со средой Windows.

Для всех логических типов значению false соответствует число 0, записанное в соответствующее количество байтов. Значению True для типа Boolean соответствует число 1, записанное в его байт, а для других типов значению True соответствует любое число, отличное от нуля.

Ord(false)=0; Ord(true)=1; Succ(false)=true; Pred(true)=false.

Символьный тип

Стандартный символьный тип Char определяет полный набор ASCII- символов. Функция Ord от величины типа Char даёт код соответствующего символа. Сравниваются величины символьного типа по своим кодам.

Перечисляемый тип

Перечисляемый тип не является стандартным. Он определяется набором идентификаторов, с которыми могут совпадать значения параметра. Список идентификаторов указывается в круглых скобках, идентификаторы разделяются запятыми:

type

<имя типа>=(<идентификатор 1, идентификатор 2,…, идентификатор №>);

Важно, в каком порядке перечислены идентификаторы при определении типа, т.к. первому идентификатору присваивается порядковый номер 0, второму – 1 и т.д.

Один и тот же идентификатор можно использовать в определении только одного перечисляемого типа. Функция Ord от величины перечисляемого типа даёт порядковый номер её значения.

Пример Перечисляемый тип

type

Operat=(Plus, Minus, Mult, Divide);

Boolean=(False, True);

Логический тип является частным случаем перечисляемого типа.

Пример

Program Code_of_Char; {Программа читает символ с клавиатуры и выводит на экран этот символ и соответствующий ему внутренний код}

var

ch: Char; {В эту переменную читается символ}

begin

write(‘Введите любой символ:’);

readln(ch); {Читает символ}

writeln(ch,’=’, ord(ch)); {Преобразует его к целому и выводит на экран}

end.