не хватает условия в программе

[pizhon1]

Извините если не в ту тему пишу
сейчас прохожу языки грамматику
Вообщем программа должна выдавать YES если текст например такого вида z=c*b если не такого вида(вместо z может быть x или y,и любая комбинация -+*с буквами a,b,c)то должен выдавать ошибку,но вот у меня если я введу =с*b или c*b или *b или b ошибку не выдаёт надо где то условие поставить не могу понять где?
type AutoState=(AH,AK,AP,AT,AR,AuS,AE);
var i:byte;InputSt:string;
function ErrorCode(InputSt:string):byte;
var i:byte;Istate:AutoState;
begin
i:=length(InputSt);
Istate:=AH;
repeat
case Istate of
AH:if InputSt[i] in ['a,b,c'] then begin IState:=AK;
dec(i) end else Istate:=AE;
AK:if InputSt[i] in ['+,-,*'] then begin IState:=AP;
dec(i) end else Istate:=AE;
AP:if InputSt[i] in [a,b,c] then begin IState:=AT;
dec(i) end else Istate:=AE;
AT:if InputSt[i] in ['='] then begin IState:=AR;
dec(i) end else Istate:=AE;
AR:if InputSt[i] in ['x,y,z'] then begin IState:=AuS;
dec(i) end else Istate:=AE;
end;
AuS:if i<>1 then IState:=AE else i:=0;
end;
until(i=0) or (IState=AE);
ErrorCode:=i;
end;
begin
readln(InputSt);
If ErrorCode(InputSt)<>0 then writeln('Error at pos',ErrorCode(InputSt)) else writeln('YES');
readln;
end.
end.

[hoza_syl]

В этом коде чорт голову сломает(заключи его хоть в BB коды CODE), и объяснение тоже мягко говоря не очень.

[Vol666]

Зачем же так заморачиваться, просто делаете проверку так:
if (edit1.text='z=c*b') then
begin
//что необходимо делать если тексты совпадают
end
else
begin
//что необходимо делать когда не совпадают
end;

[.Phoenix]

Vol666 не думаю что

if (edit1.text='z=c*b') then
begin
//что необходимо делать если тексты совпадают
end
else
begin
//что необходимо делать когда не совпадают
end;

код будет работать. Если хорошо присмотреться, то можно увидеть, что программа пишется на Turbo Pascal'е.

type AutoState=(AH,AK,AP,AT,AR,AuS,AE);
var i:byte;InputSt:string;
function ErrorCode(InputSt:string):byte;
var i:byte;Istate:AutoState;
begin
i:=length(InputSt);
Istate:=AH;
repeat
case Istate of
AH:if InputSt[i] in ['a,b,c'] then begin IState:=AK;
dec(i) end else Istate:=AE;
AK:if InputSt[i] in ['+,-,*'] then begin IState:=AP;
dec(i) end else Istate:=AE;
AP:if InputSt[i] in [a,b,c] then begin IState:=AT;
dec(i) end else Istate:=AE;
AT:if InputSt[i] in ['='] then begin IState:=AR;
dec(i) end else Istate:=AE;
AR:if InputSt[i] in ['x,y,z'] then begin IState:=AuS;
dec(i) end else Istate:=AE;
end;
AuS:if i<>1 then IState:=AE else i:=0;
end;
until(i=0) or (IState=AE);
ErrorCode:=i;
end;
begin
readln(InputSt);
If ErrorCode(InputSt)<>0 then writeln('Error at pos',ErrorCode(InputSt)) else writeln('YES');
readln;
end.
end.

например, я по крайне мере выделенные операторы встречал только в TP, в Delphi ничего подобного не видел.

[.Phoenix]

2pizhon1. Тебе не кажется, что на вот этом этапе:

AH:if InputSt[i] in ['a,b,c'] then begin IState:=AK;
dec(i) end else Istate:=AE;
AK:if InputSt[i] in ['+,-,*'] then begin IState:=AP;
dec(i) end else Istate:=AE;
AP:if InputSt[i] in [a,b,c] then begin IState:=AT;
dec(i) end else Istate:=AE;
AT:if InputSt[i] in ['='] then begin IState:=AR;
dec(i) end else Istate:=AE;
AR:if InputSt[i] in ['x,y,z'] then begin IState:=AuS;
dec(i) end else Istate:=AE;
end;
AuS:if i<>1 then IState:=AE else i:=0;

стоит оформит в виде множеств, т.е.

AH:if InputSt[i] in ['a','b','c'] then begin IState:=AK;
dec(i) end else Istate:=AE;
AK:if InputSt[i] in ['+','-','*'] then begin IState:=AP;
dec(i) end else Istate:=AE;
AP:if InputSt[i] in [a,b,c] then begin IState:=AT; кстати, в множестве желательно оформлять символы, у меня на этом этапе выдает ошибку, но если тут поставить галочки тут всё путём
dec(i) end else Istate:=AE;
AT:if InputSt[i] in ['='] then begin IState:=AR;
dec(i) end else Istate:=AE;
AR:if InputSt[i] in ['x','y','z'] then begin IState:=AuS;
dec(i) end else Istate:=AE;
AuS:if i<>1 then IState:=AE else i:=0;

я тут слегка подкорректировал код. По крайней мере у меня теперь выдает сообщения, но я не до конца всё таки понял твои пояснения и чего ты хочешь добиться.
Поясню...

AH:if InputSt[i] in ['a','b','c']...

Вот мой фрагмент кода

AH:if InputSt[i] in ['a,b,c']...

Вот твой фрамент кода.
Тут я понимаю идёт проверка входит ли InputSt[i] в множество ['a,b,c'], если Да, то какое -то выполняется действие. Напомню, что элементы множества, стоит разделять...Как показано на моём образце.

[Вавел из ГМТУ]

Всётаки тема в разделе "Общие вопросы Delphi", если автор адекватен, то он это заметил и не стал бы сюда постить задачу по TP. А операторы типа Read(ln) и Write(ln) есть в консольном проекте. Такчто предположим что это консоль.

Теперь по теме.

По моему всё очень просто. Надо в цикле идти по строке. И смотреть чтоб происходило чередование "буква - спецсимвол".
А также выставить обязательные условия:
1. 1-ый знак всегда буква.
2. 2-ой знак всегда равно.
3. 3-ий буква.
4. Не буква, любой из + - * /.
5. Буква.

Если вид именно с = a * b и пр. то это покатит.

PS: я кстати не понял что там за код у автора )))
Мозг сломался, пойду чинить....

[pizhon1]

спасибо ребята я разобрался...ещё раз приношу свои извинения что не туда написал