«Шифр Виженера». Это шифр Цезаря с переменной величиной сдвига. Величину сдвига задают ключевым словом. Например, ключевое слово ВАЗА означает следующую последовательность сдвигов букв исходного текста: 31913191 и т. д. Используя в качестве ключевого слова ВАГОН, закодируйте слово ПРАВИЛА.

begin

 var a := ArrGen(10, i -> 20 * i + 13);

 a.Println;

 var b := ArrGen(17, i -> 17 - i);

 b.Println

end.

Объяснение:

Тут главное найти формулу для общего члена.

а) 33 - 13 = 20; 53 - 33 = 20 ... все понятно, последующий элемент получается из предыдущего путем прибавления 20.

a[i+1] = a[i] +20 - это рекуррентная формула.

Можно также получить значение любого элемента как

a[i] = 20*i - 7, где i = 1, 2, 3,... 10 или

a[i] = 20*i + 13, где i = 0, 1, 2, ... 9

б) Здесь числа просто убывают от 17 до 1.

a[i+1] = a[i] - 1 - рекуррентная формула

a[i] = 18 - i, где i = 1, 2, 3, ... 17 или

a[i] = 17 - i, где i = 0, 1, 2, ... 16

Какие из этих формул были использованы в приведенной программе, видно без объяснений.