Programação VB6

flip

Power Member
Pessoal estou aqui de volta de um exercício de programação em que, de entre um determinado intervalo de números tenho de encontrar todas as capicuas e afixa-las numa listbox. A minha dificuldade está em fazer a função que me analise os números desse mesmo intervalo e diga se são ou não capicua. Alguém me pode dar uma ajuda?

Obrigado.
 
Boas.

Uma maneira de fazer isso era fazer uma função que comparasse o 1º dígito com o último, o 2º dígito com o penúltimo, e por aí a diante, com um ciclo repetitivo. Isso dava um bocado de trabalho.

Uma capicua é um número (ou palavra) que se lê de frente para trás e de trás para a frente da mesma maneira. Ou seja, o número tem que ser igual a ele mesmo, mas com a ordem invertida.
Uma pequena pesquisa, mesmo no VB6, e descobre-se a função StrReverse(<string>), que inverte uma String.
Ou seja, basta converter o número para string, inverter a "string" e verificar se é igual à string do número inicial.

Esta é uma forma muito simples de resolver o problema.

Espero ter-me feito perceber.
 
Última edição:
Back
Topo