Функция | Пояснение |
---|---|
Ord (x) | возвращает номер символьной переменой x |
Chr (n) | возвращает символ с номером n (обратная функции ord) |
Pred (x) | возвращает символ с номером, меньшим на 1, чем у x (аналог ord (x) + 1) |
Succ (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 Предыдущий символ - п Следующий символ - с |
Рекомендуем