[Resolvido] Criar Função Para Multiplicar Dígitos

[EduardoFonseca 0]

Bom dia a todos,

 

Estou precisando criar uma função para multiplicar digitos e somar no final. São duas sequencias numericas, a primeira é de 21 digitos e a outra 4 dígitos (sempre em loop 3197). Exemplo:

 

SEQUENCIA1 = 123412345678911234567 <- Variavel numerica de 21 digitos

X

SEQUENCIA2 = 319731973197319731973 <- Sempre repetindo 3197 para cada bloco de 4 digitos

TOTAL ?

 

E armazenar o resultado da multiplicação. Seria isso 1x3=? 2x1=? 3x9=? 4x7=?... até 21 digitos

 

Alguem poderia me ajudar a construir? Um grande abraço e obrigado.

 

Edu

[xanburzum 169]

você pode usar um script de calculadora, dê uma pesquisada no lab. de scripts, pode te ajudar

[EduardoFonseca 0]

Olá,

Consegui fazer a função, obrigado.

 

 

 

FUNCTION NOMEFUNCAO(cadeia)
	mult =3
	total=0
	for pos=1 to len(cadeia)
		res=mid(cadeia, pos, 1) * mult
		total=total+res
		if mult=3 then
			mult=1
		elseif mult=1 then
			mult=9
		elseif mult=9 then
		    mult=7
		elseif mult=7 then
		    mult=3
		end if
	next
	NOMEFUNCAO=total
END FUNCTION

[xanburzum 169]

muito bem, depois podemos disponibilizar no laboratório de scripts