слова с метограммой составить цепочку пошаговым методом, понел но не совсем что делать Опции

[maksimla]

5 задание.
Словом метаграмма называется слово, полученное изменить одну букву в слове. Из несколько слов можно сделать цепочку метаграмм, соединяющею два слова. Самая маленькая цепочка есть слово и его метаграмма.

напишите программа которая определила два слова можно соединить метаграмной цепочкой.

Первичные данные написаны в файле duom.txt . На первой строчке написан натуральное число n
(2 ≤ n ≤ 20), на остальных n строчках по одному на писаному слову. Слово не больше 100 символов больших литовских букв.

Результат записывается в файл rez.txt. Если два первичные файловых слова можно соединить цепочкой, то в единственный результат записывает слово MOZNO. В другом случае записываем NEMOZNO.

первичные данные и результат
первичные данные
4
RYTAS
BATAS
RATAS
BADAS
Результат
MOZNO
Объяснение
RYTAS - RATAS - BATAS

ДОПОЛНИТЕЛЬНО НАПИСАТЬ ГЕНЕРАТОР СЛОВ
всего 20 слов
вопрос в словах должна быть такая же самая длина слова чтобы было соединено например
BATAS
RATA
?
а тут обязательно два первых слова соединить?
я так думаю что сперва как-то так надо
все слова в массив потом сравниваем слово. слово сравниваем по буквам и если в слове не совпадает одна буква то совпадает и это как-то true и все если нет то берем первое и третье слово и смотрим совпадает или нет и так далее.
и как написать методом обратным методом (пошаговым методом)?

[Lapp]

вопрос в словах должна быть такая же самая длина слова чтобы было соединено например
BATAS
RATA
?
а тут обязательно два первых слова соединить?
я так думаю что сперва как-то так надо
все слова в массив потом сравниваем слово. слово сравниваем по буквам и если в слове не совпадает одна буква то совпадает и это как-то true и все если нет то берем первое и третье слово и смотрим совпадает или нет и так далее.
и как написать методом обратным методом (пошаговым методом)?

Судя по условию, допускается только замена букв, но не добавление/удаление. То есть все слова должны быть равной длины.

В принципе, ты все правильно думаешь. А написать можно прмерно так (с рекурсией):

const
  m=20;

var
  i,n,l: word;
  w: array[1..m]of string;
  Used: array[1..m]of boolean;
  f: text;

function Connected(a,b: word): boolean;
var
  i,j: integer;
  r,ua,ub: boolean;
begin
  ua:=Used[a];
  Used[a]:=true;
  ub:=Used[b];
  Used[b]:=true;
  j:=0;
  for i:=1 to l do if w[a][i]<>w[b][i] then Inc(j);
  if j=1 then Connected:=true else begin
    i:=3;
    r:=false;
    repeat
      if not Used[i] then r:=Connected(a,i) and Connected(i,b);
      Inc(i)
    until r or (i>n);
    Connected:=r
  end;
  Used[a]:=ua;
  Used[b]:=ub
end;

begin
  Assign(f,'duom.txt');
  ReSet(f);
  ReadLn(f,n);
  for i:=1 to n do ReadLn(f,w[i]);
  Close(f);
  l:=Length(w[1]);
  for i:=3 to n do Used[i]:=false;
  WriteLn(Connected(1,2))
end.

Нужный вывод в файл сделай сам. Что неясно - спрашивай .

Добавлено через 11 мин.

ДОПОЛНИТЕЛЬНО НАПИСАТЬ ГЕНЕРАТОР СЛОВ
всего 20 слов

Генератор слов сделать легко, но только если брать все латинские (извини, литовских не знаю) буквы полностью случайно, то, боюсь, на двадцати словах результат будет NEMOZNO с подавляющей вероятностью. Так что, если хочется иногда получать MOZNO, то нужно генерить не просто так..

PS
лучше сказать NEVOZMOZNO, слова "неможно" в русском нет .