"""SIMULAÇÃO DE UM AFD"""
Entrada: Q,A,q0,F,delta,w
Leia(Q,A,q0,F,mDelta) //mDelta: matriz delta

Leia(w)  //leitura da fita
TRAVOU=F
q=q0
c=nextchar()   //proximo caracter da fita
enquanto c != `\0' //ATE O FIM DA FITA
   q=fdelta(q,c) //busca na linha o q de mdelta
                 //na coluna o c ou seja 
                 //retorna mDelta[linhaq][colc]
                 //ou um valor de trava (exemplo:-1)
                 
   se !Pertence(q,Q) //retorna V se q nao está em Q
       TRAVOU=V
       break
   fimse
  
   c=nextchar()
fimenquanto
se TRAVOU 
    escreva("Palavra nao reconhecida. Máquina travou")
senao
    se Pertence(q,F)
       escreva("SUCESSO! Palavra reconhecida")
    senao 
       escreva("Palavra não reconhecida")
    fimse
fimse