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

Значением символьного типа является множество всех символов ПК. В Turbo Pascal для обработки символов и используется тип Char.

Каждому символу приписывается целое число в диапазоне 0…255. Это число служит кодом внутреннего преставления символа. Для кодировки используется кодовая таблица ASCII (American Standard Code for Information Interchange – американский стандартный код для обмена информацией). Первая половина этой таблицы стандартизирована. Она содержит 128 знаков, включая буквы латинского алфавита, цифры, специальные знаки, служебные символы. Вторая половина кодовой таблицы содержит чаще всего символы национальных алфавитов, псевдографики.

В нашей стране наиболее широко используется так называемый альтернативный вариант расширения ASCII-таблицы с русскими буквами. В ней прописные буквы русского алфавита имеют коды 128 – 159, а строчные – 160 – 175 и 224 – 241. коды 176 – 223 отведены для символов псевдографики, которые используются для рисования в текстовом режиме рамок и таблиц.

К типу Char применимы операции отношения (<, >, =,) и сложения.

Из двух символов большим считается то, которое стоит дальше в алфавите. При сравнении символов на компьютере сравниваются их коды.

Таким образом, что можно сказать о буквах ‘а’ и ‘б’ (а<б; а>А)

Наряду с перечисленными операциями для символьных величин выполняются так же встроенные функции.

Chr (В) – функция типа Char; преобразует выражение В типа Byte в символ и возвращает его своим значением;

Ord (‘В‘) – возвращает внутренний код символа В.

UpCase (Ch) – функция типа Char; возвращает прописную букву, если Ch – строчная латинская буква, в противном случае возвращает сам символ Ch. Данная функция не обрабатывает только символы кириллицы.

Пример1. Найти сумму порядковых номеров входящих в слово SUM. Var S: Integer; Begin S:= ord(‘A‘)+ord(‘U‘)+ord(‘M‘); Writeln (‘S= ‘, S); End.

Пример 2. Написать текст 67, 71, 69.   Var А, В, С: Char; Begin A:= chr (67); B:=chr (71); C;=chr (69); Writeln (A, B, C); End.

Пример3.

Var с1, с2: Char;

Begin

с1:= UpCase (‘s‘);

c2:= UpCase (‘ф‘);

Writeln (с1, ‘ ‘, c2); {Результат S ф} end.

Дата добавления: 2015-07-08