Шифр "Тарабарщина" - замена одних букв другими, помогите составить программу Опции

[Drughi]

Итак, начну с определения Тарабарщины

Тарабарская грамота, простая литорея — шифр, широко использовавшийся в древнерусских рукописях.

Представляет собой простейший шифр замены без ключа. Согласные в алфавите делят на две равные части, и первую пишут строкой в алфавитном порядке, а вторую под буквами первой в обратном порядке. Таким образом получают таблицу:

б в г д ж з к л м н
щ ш ч ц х ф т с р п


Употребляют в письме верхние буквы вместо нижних и наоборот, а гласные остаются без изменения. Так, например, словарь на тарабарской грамоте будет лсошамь, великий государь — шеситий чолуцамь и т. п. Для расшифровки используют тот же способ, что и для шифрования (шифр симметричный).


Мне нужно написать программу, которая переводит шифрованный текст в обычный.

Например, "Шещ-нмочмарримошапие" будет звучать как "Веб-программирование"

Как реализовать данную задачу в Pascal ABC?

Спасибо!

[TarasBer]

И чем оно проще? Длинный выбор.
Типичный ГК.

Вариант Вольво лучше наличием 2х массивов, но для каждой буквы перебором искать, входит ли она в массив - это тоже не лучший вариант.
+ наращивание по 1 там, где можно обойтись + проверка на регистр - всё это можно убрать

var NewChar: array [char] of char; // сразу составляем массив замены
const alpha: array [boolean] of string = ('бвгджзклмн', 'щшчцхфтсрп'); // ну эти нам тоже пригодятся

procedure InitTarabar;
begin
  for c: char := #0 to #255 do NewChar[c] := c; // сначала массив замены заполняем так, будто ничего заменять не надо
  for b: boolean := false to true do begin
    for i: integer := 1 to Length(alpha[b]) do begin
      NewChar[alpha[b,i]] := alpha[not b,i];  // проходим по строке и делаем замены в массиве
      NewChar[UpCase(alpha[b,i])] := UpCase(alpha[not b,i]);
    end;
  end;
end;

function Tarabar(s: string): string;
begin
  SetLength(result, Length(s));
  for i: integer := 1 to Length(s) do Result[i] := NewChar[s[i]];
end;

var s: string;

begin
  InitTarabar;
  repeat
    Write('Введите строку (или "exit" для выхода): ');
    ReadLn(s);
    WriteLn(Tarabar(s));
  until s = 'exit';
end.

В начале программы пишем InitTarabar (для каждой строки это делать не надо), а потом уже используем, вызывая функцию Tarabar(s).

Сообщение отредактировано: TarasBer - 18.02.2011 14:43