СИМВОЛЬНЫЙ ТИП

Электронные вычислительные машины изначально имели дело с числами. Впоследствии их научили работать с наборами символов – словами, строками. Большое разнообразие типов Турбо-Паскаля позволяет организовать данные так, чтобы структура данных сама по себе отражала природу задачи и с самого начала направляла мысль программиста по верному пути. Некоторые простые типы и массивы рассмотрены в предыдущих разделах, в этом и последующих разделах ознакомимся с типами данных, где вычислительная сторона второстепенна.

Значениями символьного типа (обозначается char) является множество всех символов компьютера. Это множество состоит из 256 символов, упорядоченных в соответствии с расширенным набором кодов ASCII (American Standardn Code for Information Interchange – американский стандартный код для обмена информацией). Символьный тип относится к порядковым типам, и при вызове функции ORD(ch), где ch значение типа char, возвращается код символа из набора ASCII. С другой стороны, любую символьную величину можно получить с помощью стандартной функции CHR, задав соответствующий код ASCII. Порядковый номер (кодировку значений) можно узнать из таблицы кодов ASCII. Эти значения занимают один байт. Значением переменной или константы типа char могут быть только одиночные символы. Если символьное значение имеет графическое представление, то оно изображается соответствующим знаком, заключенным в одинарные кавычки (апострофы), например:

var

a,b,c:char;

x: integer;

...........

begin

a:='*';

b:='a';

c:='''';

x:=ord(b);

............

Для представления самого апострофа его изображение удваивается. Если символ, который необходимо изобразить, не имеет графического представления, то можно воспользоваться следующей эквивалентной формой записи, состоящей из символа '#' (решетка, диез) и целочисленного кода символа (от 0 до 255):

#13 {Возврат каретки, вводится нажатием на клавишу "Ввод"},

#27 {Конец работы, вводится нажатием на клавишу ESC}

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

Program pr15;

var

ch:char;

begin

for ch:='A' to 'Z' do

writeln(ch,'=',ord(ch));

end.

Над значениями символьного типа возможны операции сравнения, причем эти операции дают тот же результат, что и над соответствующими целочисленными кодами символов. Следует обратить внимание на то, что буквы латинского алфавита упорядочены по алфавиту, и результатом операции сравнения 'a'>'b' будет false, а операции 'a'<'b' будет true.

Это позволяет определить, какая из двух букв расположена ближе к началу латинского алфавита. Символы десятичных цифр от 0 до 9 упорядочены по возрастанию и следуют непосредственно друг за другом.

Между тем в компьютере для букв национальных алфавитов, не совпадающих с буквами латинского алфавита, выделены свободные неиспользованные коды, не соответствующие месту этих букв в алфавите.

{Пpогpамма, опpеделяющая количество символов 'a' в пpедложении, которое заканчивается точкой.}

program pr16;

var

ch:char;{Вводимый символ}

k:integer;{Количество символов 'a'}

begin

k:=0;

read(ch); {Читаем символы, пока}

while ch<>'.' do {не встpетится точка}

begin

if ch='a' then k:=k+1;

read(ch);

end;

writeln('k=',k);

end.