Programação de Palindrome
algoritmo "Palindrome"
// Função : Verificação de Palindromo
// Autor : Joildo Schueroff
// Data : 5/4/2011
// Seção de Declarações
var
numero,m,c,d, t,to,divisor, digitado,aux:inteiro
inicio
escreva("Digite um numero ate 9999:")
leia(numero)
aux<- numero
se (numero >=0)e(numero <= 9)entao
escreva("O numero ",numero," eh um Palindromo")
fimse
//===========================================================
se(numero >=10)e(numero <= 99)entao
digitado<- numero
m<- numero \ 10
divisor<- m % 10
c<- m\10
d<- numero % 10
numero <- (d *10)+(Divisor * 1)
se (numero = digitado )entao
escreva("O numero ",digitado," eh um Palindromo ")
senao
escreva("O numero ",digitado," nao eh Palindromo ")
fimse
fimse
//============================================================
se (numero >= 100)e(numero <= 999)entao
digitado<- numero
m<- numero \ 10
divisor<- m % 10
c<- m \ 10
d<- numero % 10 // O resto da Divisão
numero<- (d*100)+(Divisor* 10)+(c * 1)
se (numero = digitado )entao
escreva("O numero ",digitado," eh um Palindromo ")
senao
escreva("O numero ",digitado," nao eh Palindromo ")
fimse
fimse
//============================================================
se (numero >= 1000)e (numero <= 9999)entao
digitado<- numero
t<- numero \ 10
to<- t % 10
m<- t \ 10
divisor<- m % 10
c<- m \ 10
d<- numero % 10 // O resto da Divisão
numero<- (d*1000)+ (to * 100)+(Divisor* 10)+(c * 1)
se (numero = digitado )entao
escreva("O numero ",digitado," eh um Palindromo ")
senao
escreva("O numero ",digitado," nao eh Palindromo ")
fimse
fimse
fimalgoritmo