2.4.2 Симметричная буква

Next:2.4.3 Возведение в степень Up:2.4 Построение линейных программ
Previous:2.4.1 Периметр и площадь

2.4.2 Симметричная буква

Задача. Для заданной буквы латинского алфавита напечатать симметричную ей относительно середины латинского алфавита.

Решение. Обозначим через номер симметричного символа в множестве значений литерного типа. Из условия симметричности заданного символа и символа с номером получаем уравнение

integer (S) - integer('A')= integer('Z')-X,

откуда

X = integer (S) + integer('A') - integer('Z').

Таким образом, нужно напечатать символ chr(X) где X = integer (S) + integer('A') - integer('Z').

module Симметрия;
    var S : char;
begin
    read(S); (* $\{'A'\leq S\leq 'Z'\}$ *)
    write(char(integer('Z')+integer('A')-integer(S)))
end Симметрия.