Принадлежит ли слово языку?

[MetR]

мне нужно проверить принадлежит ли слово данному языку, я тут примерно полфункции написал и решил проверить на слове 000001, по идее результат должен быть истиным, но функция все время выдает ложь, помогите найти ошибку пожалуйста

function tform1.FirstWord(Fword:string):boolean;
var
cep:string;
i:integer;
begin
i:=1;
if length(fword)=3 then
   if fword='001' then begin result:=true;exit; end
   else begin result:=false; exit; end;
if length(fword) mod 3 <> 0 then begin result:=false; exit; end
   else
   begin
   cep:=fword[i]+fword[i+1]+fword[i+2];
   if (cep<>'000') or (cep<>'001') then begin result:=false; exit; end;
   if cep='000' then
     begin
        repeat
          i:=i+3;
          cep:=fword[i]+fword[i+1]+fword[i+2];
          if (i+3>length(fword)) and (cep<>'001') then begin result:=false; exit; end;
          if (cep<>'000') and (cep<>'001') then begin result:=false; exit; end;
        until cep='001';
        if i+3>length(fword) then begin result:=true; exit; end;
        repeat
        i:=i+3;
        cep:=fword[i]+fword[i+1]+fword[i+2];
        if cep<>'010' then begin result:=false; exit; end;
        until i+3>length(fword);
     end
   else begin result:=false; exit; end;
   end;
end;

[Justen]

Ошибки умом не нашел, но простенькое тестирование с высвечиванием сообщений показало:

...
if length(fword) mod 3 <> 0 then begin result:=false; exit; end
else
begin
cep:=fword[i]+fword[i+1]+fword[i+2];
showmessage ('"' + cep + '"'); //проверял, что заложено в cep
if (cep<>'000') or (cep<>'001') then begin result:=false; exit; end;
showmessage ('2'); //проверял, доходил ли до сюда программа
...
первое сообщение показывается "000", второе сообщение - не показывается, значит - проблема между первым сообщением и вторым.
И ведь действительно: cep='000', значит cep<>'001', присваивается значение false и функция завершается.
Если написать
if (cep<>'000') and (cep<>'001') then begin result:=false; exit; end;
То в итоге функция выдает True на значение 000001

[phomm]

ОМГ, что за страшенный код...

выдает фолс, потому что Вы в куче месте задаете result := false , и понять почему именно на этом слове так получаетя, малореально из-за "виртуозности" алгоритма.

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

[MetR]

if cep='000' then
     begin
        repeat
          i:=i+3;
          cep:=fword[i]+fword[i+1]+fword[i+2];
          if (i+3>length(fword)) and (cep<>'001') then begin result:=false; exit; end;
          if cep<>'000' then begin result:=false; exit; end;
        until cep='001';

ошибка тут была)
исправил на

if (cep<>'000') and (cep<>'001') then begin result:=false; exit; end;

Justen
спасибо, тут тоже исправил

phomm
дан язык: (000)*001(010)*
на вход подается несколько слов, нужно проверить принадлежат ли они данному языку, за одно обращение обрабатывается одно слово
ну например 000001010,00,01000