Обработка символьных данных (Паскаль)

Ord (x)

возвращает номер символьной переменой x

Pred (x)

возвращает символ с номером, меньшим на 1, чем у x (аналог ord (x) + 1)

Upcase (x)

Преобразует символ из нижнего в верхний регистр (только для английского алфавита)

Var x: char;

Begin

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

read(x);

writeln(‘Символ ’, x, ‘ имеет код - ’, Ord(x));

writeln(‘Код 48 имеет символ - ’, Chr(48));

writeln(‘Предыдущий символ - ’, Pred(x));

writeln(‘Следующий символ - ’, Succ(x))

End.

Введите любой символ - р

Символ р имеет код - 1088

Код 48 имеет символ - 0

Предыдущий символ - п

Следующий символ - с