|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
машина тьюринга на делфи, почти готова
Я очень начинающий програмист !!Здали курсовую "Машина тьюринга на делфи"
В общем смотрите !! Надо реализовать алгаритм машины тьюринга Код:
procedure TForm1.BitBtn3Click(Sender: TObject); var i,nom:integer; st:string; begin Q:=0; nom:=0; repeat st:=StringGrid2.Cells[9,0]; // в ст присваиваем то что находится в 9 столбце ленты for i:=1 to StringGrid1.RowCount-1 do // перебираем Все строки if st=StringGrid1.Cells[0,i] then // если ст= равен какой либо строке nom:=i; //тогда в ном присваиваем номер строки st:=StringGrid1.Cells[Q+1,nom]; // теперь в ст хранится ечейка В кторой есть совпадание в ленте StringGrid2.Cells[9,0]:=st[1]; // в активную ячейку ленты присваиваем 1-ый символ ст for i:=1 to StringGrid2.colCount-1 do// пробежались по все столбцам case st[2] of '<': StringGrid2.cells[i,0]:=StringGrid2.cells[i-1,0]; '>': StringGrid2.cells[i-1,0]:=StringGrid2.cells[i,0]; '.': q:=0; end; Q:=StrToInt(copy(st,3,length(st))); until q=0; end; |
#2
|
|||
|
|||
|
#3
|
|||
|
|||
Пользуемся отладчиком.
Сделайте брекпоинты в 15, 17 и 23 строке. Смотрим, чему равно st в этих местах. |
#4
|
||||
|
||||
Объект какой-то мертв.
|