Шифр "тарабарская грамота" - QBasic

Формулировка задачи:

Так прозвали в народе шифр Литорея от латинского littera (буква). В чем он заключается? Это шифр замены. Подлежат замене следующие буквы: б, в, г, д, ж, з, к, л, м, н щ, ш, ч, ц, х, ф, т, с, р, п Точнее, верхние буквы используются вместо нижних и наоборот. Гласные и прочие знаки не меняются. пример. Слово "пример" будет выглядеть так "нмирем" О программе. Вы вводите русский текст строчными буквами, а программа выводит на экран зашифрованный текст. В силу симметрии эту программу можно использовать и для расшифровки. (проверено)

REM
REM шифр "литорея", а в народе "тарабарская грамота"
REM
 
CLS
DATA "Ў","ў","Ј","¤","¦","§","Є","«","¬","*"
DATA "й","и","з","ж","е","д","в","б","а","Ї"
 
DIM a(9)  AS STRING
DIM b(9) AS STRING
DIM t AS STRING
DIM s AS STRING
 
FOR i = 0 TO 9
   READ a(i)
NEXT
FOR i = 0 TO 9
   READ b(i)
NEXT
 
INPUT "TEXT = "; t
 
FOR i = 1 TO LEN(t)
   g$ = MID$(t, i, 1)
   SELECT CASE g$
      CASE a(0): s = s + b(0)
      CASE a(1): s = s + b(1)
      CASE a(2): s = s + b(2)
      CASE a(3): s = s + b(3)
      CASE a(4): s = s + b(4)
      CASE a(5): s = s + b(5)
      CASE a(6): s = s + b(6)
      CASE a(7): s = s + b(7)
      CASE a(8): s = s + b(8)
      CASE a(9): s = s + b(9)
 
      CASE b(0): s = s + a(0)
      CASE b(1): s = s + a(1)
      CASE b(2): s = s + a(2)
      CASE b(3): s = s + a(3)
      CASE b(4): s = s + a(4)
      CASE b(5): s = s + a(5)
      CASE b(6): s = s + a(6)
      CASE b(7): s = s + a(7)
      CASE b(8): s = s + a(8)
      CASE b(9): s = s + a(9)
      CASE ELSE: s = s + g$
   END SELECT
NEXT
PRINT s
END

Решение задачи: «Шифр "тарабарская грамота"»

Листинг программы

CONST a = "бвгджзклмн", b = "щшчцхфтсрп"
DIM t AS STRING, g AS STRING * 1
LINE INPUT "Text = "; t
FOR i = 1 TO LEN(t)
  g = MID$(t, i, 1)
  j = INSTR(a, g)
  k = INSTR(b, g)
  IF j > 0 THEN
    MID$(t, i, 1) = MID$(b, j, 1)
  ELSEIF k > 0 THEN
    MID$(t, i, 1) = MID$(a, k, 1)
  END IF
NEXT
PRINT t

Объяснение кода листинга программы

Задаются две константы a и b, которые содержат строки бвгджзклмн и щшчцхфтсрп соответственно.
Объявляются две переменные t и g. Переменная t содержит введенный пользователем текст, а переменная g используется для временного хранения символов из строк a и b.
В цикле FOR перебираются все символы в строке t.
Для каждого символа в цикле:
- Значение текущего символа сохраняется в переменной g.
- Находится индекс первого вхождения символа g в строке a с помощью функции INSTR (индекс не включая символ, с которого начинается поиск). Если такой символ найден, то его значение заменяется на соответствующий символ из строки b с помощью функции MID$.
- Если символ не найден в строке a, то проверяется наличие символа в строке b. Если символ найден, то его значение заменяется на соответствующий символ из строки a.
После выполнения цикла выводится измененная строка t.