sábado, 10 de enero de 2009

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

No hay comentarios: