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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Дано несколько одинаковых слов, в одном возможна ошибка.

Автор: Djeyms 9.04.2009 1:11

Помогите пожалуйста в написание кода ...
Задание звучит так:
Дано несколько одинаковых слов, в одном возможна ошибка. Найдите её.
Спасибо заранее !

Автор: Lapp 9.04.2009 3:41

Цитата(Djeyms @ 8.04.2009 22:11) *
Дано несколько одинаковых слов, в одном возможна ошибка. Найдите её.
Как заданы слова?
Допустим, они содержатся в массиве строк s[1..n], при этом n>2. Тогда можно действовать примерно так:

i:=2;
while (i<=n)and(s[1]=s[i]) do Inc(i);
if i>n then e:=0 else if (i>2)or(s[1]=s[3]) then e:=i else e:=1;


После этого e будет содержать номер ошибочного слова (если ноль - ошибки нет).

Автор: Lapp 9.04.2009 11:23

А вот так будет красивее)). И без лишней переменной i.

e:=n-1;
while (e>0)and(s[n]=s[e]) do Dec(e);
if (e=n-1)and(s[n-1]=s[n-2]) then Inc(e);

Автор: Djeyms 9.04.2009 22:28

Спасибо за помощь ...
А как это будет выглядеть в блок схеме?

Автор: Гость 3.05.2009 3:42

А можно блок схему выложить?

Автор: Lapp 3.05.2009 9:33

Цитата(Гость @ 3.05.2009 0:42) *
А можно блок схему выложить?
Я не умею. Не обучен((

Автор: Гость 3.05.2009 18:37

Вроде разобрался, но мне надо что бы, он выдовал ни только номер слова в котором ошибка, но еще и номер буквы в котором ошибка.
Спасибо.

Автор: Lapp 4.05.2009 7:30

вот, смотри:

const
n= 5;
s: array[1..n]of string=('asdfgh','asdfgh','asdfgh','azfgh','asdfgh');

var
e,i,j: integer;

begin
e:=n-1;
while (e>0)and(s[n]=s[e]) do Dec(e);
if (e=n-1)and(s[n-1]=s[n-2]) then Inc(e);
if e>0 then begin
i:=(e mod n)+1;
j:=1;
while s[e][j]=s[i][j] do Inc(j);
WriteLn('The mistake is in word ',e,', at a position ',j)
end
else WriteLine('No mistakes found')
end.