Вопросы о некоторых задачах

[k1r1ch]

Во-первых, уже не первый раз вижу задачи, в которых написано что-то вроде "Даны буквы "Y U O M O X". X - маркер конца последовательности". Я их всегда решал, беря массив элементов эдак под 1000, чтоб точно хватило, ведь в Pascal'е динамические массивы не делаются. Но может есть какая-то хитрость с маркером, а иначе зачем это пишут?
Второе, уже всю голову сломал, как решать задачи такого типа:

Во время поездки на поезде девочка заменила в названии поезда
каждую букву ее номером в русском алфавите и получила запись из
единиц и двоек "211221-21221". Определить откуда и куда идет по-
езд?

Это самая легкая из этой темы, а у меня даже тут не получается Тут вроде какой-то очень хитрый цикл нужен?

[LeBron]

Во втором можно динамически оформить, есть подобная классическая задача - посчитать количество слов, которые можно так закодировать. Сдесь чуть иначе - генерируем все слова и смотрим перебором, какие из них имеют смысл. В динамике на шаге каждой буквы проверяем 2 варианта - может ли быть приписана буква с 2значным номером к словам, сгенереным из цифр до (текущая-2), и может ли быть приписана буква с 1значным номером к словам, сгенереным из цифр до(текущая-1). Второе всегда возможно, первое невозможно, если 2значное число, которое мы првоверяем, больше за количество букв в алфавите.

[Serge_Bliznykov]

а вот и решение задачки с поездом и девочкой:

const
  Rus = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  
  function DecodeOne(inS : string) : string;
  var i,iErr : integer;
  begin
    val(inS,i,iErr);
    DecodeOne := Copy(Rus,i,1)
  end;

  procedure  GetVariant(DeCodeS, s0 : string);
  begin
    if length(s0) = 0 then begin WriteLn(DeCodeS); exit end;
    if length(s0) = 1 then  WriteLn(DeCodeS+DecodeOne(s0))
    else
      begin
        GetVariant(DeCodeS+DecodeOne(copy(s0,1,1)), copy(s0,2,255));
        GetVariant(DeCodeS+DecodeOne(copy(s0,1,2)), copy(s0,3,255));
      end
  end;

var s : string;
begin
  s := '211221';
  WriteLn('Декодирование строки ',s);
  GetVariant('',s);
  WriteLn('------ расчёт окончен! -----');
  s := '21221';
  WriteLn('Декодирование строки ',s);
  GetVariant('',s);
  WriteLn('------ расчёт окончен! -----');
end.

и, как ни удивительно, у этой задачки есть вразумительный ответ...

[k1r1ch]

А это называется рекурсия вроде?

  procedure  GetVariant(DeCodeS, s0 : string);
  begin
    if length(s0) = 0 then begin WriteLn(DeCodeS); exit end;
    if length(s0) = 1 then  WriteLn(DeCodeS+DecodeOne(s0))
    else
      begin
        GetVariant(DeCodeS+DecodeOne(copy(s0,1,1)), copy(s0,2,255));
        GetVariant(DeCodeS+DecodeOne(copy(s0,1,2)), copy(s0,3,255));
      end
  end;

Даа... Я бы не додумался, еще учиться мне и учиться...
Попытаюсь разобраться!