Основы программирования на языке Turbo Pascal. Беляева И.В. - 136 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

136
Пример 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 для перевода больших
русских и латинских букв в маленькие.

Страницы