Palíndromo (fortran)

[ingridtele 0]

E05 - Dada uma seqüência de caracteres informadas pelo usuário, verificar se a seqüência trata-se deum palíndromo ou não. Desenvolve um módulo para verificar isto.Al´guém pode me ajudar neste algorítmo?

[Ninetails 0]

bom, n sei fortran mas se o problema for sobre palíndromo

http://pt.wikipedia.org/wiki/Pal%C3%ADndromo

ler a string e ver o tamanho dela, depois comparar se a1 = an, a2 = a(n-1), .... , ai = a(n-i), ... continua até i = tamanho da string / 2 (divisão de inteiro)... senão (na primeira ocorrência de diferente) sair do laço e dizer que não é palíndromo

[ingridtele 0]

Valeu as dicas! Depois eu coloco minha resposta aqui em fortran... beijinhos

[ingridtele 0]

program palindromo character frase*50 integer i,tamanho print*,"Digite o nome ou a frase sem dar espa‡o!" read*,frase(50) print *, "Nome tem ", len_trim(frase), " letras (len_trim)." tamanho = len_trim(frase) do i=1,tamanho/2,1 if(frase(i).eq.frase(tamanho))then print*,"Eh palindromo!" else print*,"NÆo eh palindromo!" end if end do end.........................................................................................Meu programa ficou assim... mas ainda tem erro! Preciso de ajuda!