Простейшие задачи обработки символьных данных (Паскаль)

Ord (x)

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

Pred (x)

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

Upcase (x)

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

Var x: char;

Begin

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

read (x);

writeln (ʹCимвол ʹ, x, ʹимеет код – ʹ, Ord (x));

writeln (ʹКод 48 имеет символ – ʹ, Chr (48));

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

writeln (ʹСледующий символ – ʹ, Succ (x))

End.

Введите любой символ – p

Символ имеет код – 1088

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

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

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