// Autor: Prof. Tiago Eugenio de Melo // Data: 24.04.2011 // Contato: tiagodemelo@gmail.com algoritmo "ProcuraCaracteres" var letras: vetor[1..5] de caracter conjunto: vetor[1..3, 1..2] de caracter posicoes: vetor[1..10] de inteiro total, i, j, k: inteiro inicio total<-1 para i de 1 ate 5 faca leia(letras[i]) fimpara para i de 1 ate 3 faca para j de 1 ate 2 faca leia(conjunto[i,j]) fimpara fimpara para i de 1 ate 5 faca para j de 1 ate 3 faca para k de 1 ate 2 faca se (letras[i]=conjunto[j,k]) entao total<-total+1 posicoes[i]<-j posicoes[i+1]<-k fimse fimpara fimpara fimpara se (total=5) entao escreva("Os caracteres estão na matriz.") j<-1 para i de 1 ate 5 faca escreva(letras[i],"=",posicoes[j],",",posicoes[j+1] j<-j+2 fimpara senao escreva("Os caracteres não estão na matriz.") fimse fimalgoritmo