FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
Wx - Procedure Retorna a soma com pesos descendentes
Wx - Procedure Retorna a soma com pesos descendentes
Iniciado por adrianoboller, 31,ago. 2015 22:50 - No hay respuesta
Conéctese…
adrianoboller
#1
Miembro registrado
3.659 mensajes
Popularité : +175 (223 votes)
Publicado el 31,agosto 2015 - 22:50
// Summary: retorna soma com pesos descendentes
// Syntax:
//[ <Result> = ] SomaComPesoDsc (<pNro> is string, <pMenorPeso> is int)
//
// Parameters:
// pNro (string): número para calcular, em variavel String
// pMenorPeso (int): menor peso
// Return Value:
// 2-byte unsigned int: // Peso total calculado
//
// For instance:
// SomaComPeso('111222333',2)
// tmpPeso = 1*(9-1+2) + 1*(9-2+2) + 1*(9-3+2) + 2*(9-4+2) + 2*(9-5+2) + 2*(9-6+2) + 3*(9-7+2) + 3*(9-8+2) + 3*(9-9+2)
// peso = 1*10 + 1*9 + 1*8 + 2*7 + 2*6 + 2*5 + 3*4 + 3*3 + 3*2
// peso = 10 + 9 + 8 + 14 + 12 + 10 + 12 + 9 + 6
// peso = 90
//
Procedure
SomaComPesoDsc
(
pNro is
string
,
pMenorPeso is
int
)
tmpTam is
int
=
Length
(
pNro
)
tmpPeso is
2
-
byte
unsigned
int
=
0
FOR i
=
1
TO tmpTam
tmpPeso
=
tmpPeso
+ (
Asc
(
pNro
[
[i]
]
) -
48
)
* (
tmpTam
-i+
pMenorPeso
)
END
RESULT
tmpPeso
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto