Машина Тьюринга

[Electroflower]

Ребят, надо сделать машину Тьюринга с условием что она будет выдавать "ДА" если четное кол-во единиц, "НЕТ" в противном случае. Алфавит (1,0).
Сделала так что если их две, то он выдает "ДА", но не всегда, только когда подряд стоят... Помогите чем можете, пожалуйста!
Вот наработки:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------


int MT (AnsiString s)
{
Form1->ListBox1->Clear();
int b=0,q=0,i=1,q1;
while (b==0)
{
q1=q;
switch (q)
{
case 0:
switch (s[i])
{
case '0': q=0;break;
case '1': q=1;break;
case ' ': b=1;break;
}
break;
case 1:
switch (s[i])
{
case '0': q=0;break;
case '1': q=2;break;
case ' ': b=1;break;
}
break;
case 2:
switch (s[i])
{
case '0': q=0;break;
case '1':
{q=2;
b=1;
break;
}
case ' ': b=1;break;
}
break;
}
Form1->ListBox1->Items->Add("(q"+IntToStr(q1)+" "+s[i]+"-->q"+IntToStr(q)+" "+s[i]+" R, "+s+")");
i++;
}
return(q);
}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
int rez,i=0;
AnsiString s;
while (Form1->StringGrid1->ColCount!=i)
{
s=s+Form1->StringGrid1->Cells[i][0];
i++;
}
s=s+' ';
rez=MT(s);
if (rez==2)
Label1->Caption="Да";
else
Label1->Caption="Нет";
}
//------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
Form1->StringGrid1->ColCount=1;
Form1->StringGrid1->Cells[0][0]=' ';
}
//------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (Form1->StringGrid1->ColCount!=1 ||
Form1->StringGrid1->Cells[Form1->StringGrid1->ColCount-1][0]==1 ||
Form1->StringGrid1->Cells[Form1->StringGrid1->ColCount-1][0]==0)
Form1->StringGrid1->ColCount++;
Form1->StringGrid1->Cells[Form1->StringGrid1->ColCount-1][0]=1;
}
//------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (Form1->StringGrid1->ColCount!=1 ||
Form1->StringGrid1->Cells[Form1->StringGrid1->ColCount-1][0]==1 ||
Form1->StringGrid1->Cells[Form1->StringGrid1->ColCount-1][0]==0)
Form1->StringGrid1->ColCount++;
Form1->StringGrid1->Cells[Form1->StringGrid1->ColCount-1][0]=0;
}
//------------------------------------------------------------------------

[sergey_dmitrievich]

Вот вы нагородили. Все намного проще:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  bool nochet = false;
  AnsiString str = Form1->Edit1->Text;
  while(str.Pos("1"))
  {
  str.Delete(str.Pos("1"),1);
  nochet=!nochet;
  }
  if(nochet) Form1->Label1->Caption="NO";
  else Form1->Label1->Caption="YES";
}