Примеры использования стандартных процедур и функций обработки символов

Пример 1. Напишем программу, которая печатает таблицу кодов символов:

{Вывод на экран таблицы символов

Размер таблицы 16x16}

var

i: integer; {Номер строки таблицы}

j: integer; {Номер символа в строке - номер столбца}

begin

writeln;

{Формируем таблицу из 16 строк}

for i:=0 to 15 do

begin

{В каждой строке по 16 символов}

for j:=0 to 15 do

write(chr(i*16+j):2); {Код символа получается

как произведение номера строки на 16 плюс

номер символа в строке}

writeln; {строка закончена}

end;

end.

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

{Функция ToUpper.

Для символа Ch возвращает переведенный в верхний регистр

символ. Работает как с латинскими, так и с русскими буквами.}

function ToUpper(Ch: char): char;

begin

{Если исходный символ Ch является маленькой латинской буквой,

то чтобы она превратилась в большую латинскую букву, ее код

требуется уменьшить на 32(смотри ASCII таблицу кодов)}

if (Ch>='a') and (Ch<='z') then Dec(Ch, 32)

{Если исходный символ Ch является маленькой русской буквой

из интервала от ‘а’ до ‘п’, то чтобы она превратилась в большую

русскую букву, ее код требуется уменьшить на 32 (смотри ASCII

таблицу кодов)}

else if (Ch>='а') and (Ch<='п') then Dec(Ch, 32)

{Если исходный символ Ch является маленькой русской буквой

из интервала от ‘р’ до ‘я’, то чтобы она превратилась в большую

русскую букву, ее код требуется уменьшить на 80 (смотри ASCII

таблицу кодов)}

else if (Ch>='р') and (Ch<='я') then Dec(Ch, 80);

{Если исходный символ Ch не является маленькой буквой, то мы его

значение не изменяем}

{возвращаем из функции вычисленное значение}

ToUpper:= Ch;

end;

По аналогии можно создать функцию ToLower для перевода больших русских и латинских букв в маленькие.

Строки