Версия для печати темы

Автор: maksimla 15.03.2009 14:10

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 15.03.2009 19:05

Цитата(maksimla @ 15.03.2009 10:10)

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.

Цитата(maksimla @ 15.03.2009 10:10)

Автор: maksimla 18.03.2009 15:36

кажется тут более менее все понятно только это непонятно или я забыл что оно значит или делает

l:=Length(w[1]);

Автор: Lapp 18.03.2009 16:56

Цитата(maksimla @ 18.03.2009 11:36)

l:=Length(w[1]);

Автор: maksimla 18.03.2009 21:53

да спасибо все понятно

Автор: maksimla 20.03.2009 16:28

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

const
 a=['A','À','B','C','È','D','E','Æ','Ë','F','G','H','I','Á','Y','J','K','L','M','N','O','P','R','S','Ð','T','U','Ø','Û','V','Z','Þ'];
var
   n,i,x: integer;
   t:text;
   c:char;
begin
 assign (t, 'duom.TXT');
 rewrite (t);
  randomize;
  n:= random(100)+1;
    x:= random(20)+1;
    writeln(t,x);
  for i:=1 to x do
  begin
  for i:=1 to n do
  begin
   c:= random(a);
    write(t,c);
    end;
  writeln;
  end
  close(t);
end.

Автор: Lapp 20.03.2009 17:55

Цитата(maksimla @ 20.03.2009 12:28)

const
 a: array [1..NLetters] of char=
    ('A','А','B','C','И','D','E','Ж','Л','F','G','H','I','Б','Y','J','K','L','M','N','O','P','R','S','Р','T','U','Ш','Ы','V','Z','Ю');

  c:=a[random(NLetters)+1];

Автор: maksimla 20.03.2009 22:53

Цитата(Lapp @ 20.03.2009 12:55)

Ты все же говори, какая именно ошибка. У тебя там много ошибок, я не знаю, на какой ты застрял.

1. Мой совет: сначала сделай программу для латинских букв и отладь, а потом переходи на литовские, если нужно.

2. Почему ты используешь один параметр (i) для двух вложенных циклов? Это грубейшая ошибка.

3. Почему ты делаешь переменное количество букв в слове?? Я же говорил уже.. Да еще до ста букв! Что, бывают такие слова в литовском?

4. Зачем тебе множество a? Сделай массив букв, примерно вот так:

const
 a: array [1..NLetters] of char=
    ('A','А','B','C','И','D','E','Ж','Л','F','G','H','I','Б','Y','J','K','L','M','N','O','P','R','S','Р','T','U','Ш','Ы','V','Z','Ю');

5. Почему у тебя множество стоит в параметре random? Сделай примерно так:

  c:=a[random(NLetters)+1];

Еще раз: если спрашиваешь про ошибку - говори, пожалуйста, про какую..

const
NLetters=32;
 a: array [1..NLetters] of char=
    ('A','À','B','C','È','D','E','Æ','Ë','F','G','H','I','Á','Y','J','K','L','M','N','O','P','R','S','Ð','T','U','Ø','Û','V','Z','Þ');
var
   n,i,x,j: integer;
   t:text;
   c:char;
begin
 assign (t, 'duom.TXT');
 rewrite (t);
  randomize;
  n:= random(100)+1;
    x:= random(20)+1;
    writeln(t,x);
  for i:=1 to x do
  begin
  for j:=1 to n do
  begin
   c:= a[random(NLetters)+1];
    write(t,c);
    end;
  writeln;
  end;
  close(t);
end.

Автор: volvo 20.03.2009 23:27

Автор: maksimla 21.03.2009 0:33

да уж спасибо сам даже засмеялся я что не увидел такого
всем спасибо можно тему закрывать