Un capicúa en la meta (3)

Definir funciones en una hoja de cálculo es muy útil, pero a veces puede resultar complicado si no se tiene costumbre. Para animaros a iniciar tareas de este tipo, copio aquí el código de la función que invierte las cifras de un número natural, y que es parte del “Algoritmo 196” ya descrito en una entrada anterior.

Por no alargar esta entrada, el código comentado y el correspondiente a la función ESCAPICUA lo tenéis en esta dirección:

http://www.hojamat.es/guias/descubrir/htm/ejemfun.htm

Código en Basic de OpenOffice.org:

Función INVERTIR_CIFRAS Objetivo: Si actúa sobre un número entero, devuelve otro número formado por las cifras del primero en orden inverso Observaciones: Si se aplica a un número no entero puede producir algún resultado inesperado

Public function invertir_cifras(n)

dim l%,i% 

dim auxi$,auxi2$,c$

dim m

auxi = str$(n)

l = len(auxi)

auxi=mid(auxi,2,l-1)

l = l-1 

auxi2="" 

for i=1 to l 

c=mid(auxi,i,1) 

auxi2=c+auxi2 

next i 

m=val(auxi2) 

invertir_cifras=m 

End function