В данном уроке мы рассмотрим функции, применяемые к типу CHAR. Функция Pred возвращает в качестве значения предшествующий символ, а функция Succ возвращает последующий символ.

program number15;
uses crt;
var X1, X2, X3:char;
begin
clrscr;
X1:=’L’;
writeln (X1);
X2:=Pred (X1);
writeln(‘Предшествующая буква ’,X2);
X3:=Succ (X1); writeln (‘Следующая буква ’,X3);
readln
end.

Строка №8. Функция Pred возвращает предшествующий элемент относительно X1. Т.е. переменной X2 будет присвоено предшествующее значение переменной «X1». «X1» – это «L», а буква, которая стоит перед «L» – это «K».

Строка №10. Функция Succ обратна функции Pred. Переменной «X3» будет присвоено последующее значение от переменной «X1». После «L» идет «M».