Esta versão do sistema foi descontinuada e não recebe atualizações e novas implementações. Acesse a documentação da versão 5.10.3 aqui

Cálculo Módulo 11

/* // Geração de Dígito Automático do Produto (Modulo 11) // */
Definir Alfa Produto;
Definir Alfa Digito;/* Esta variável "Digito" deve possuir este nome */
Definir Alfa Caracter_Alfa;
Definir Numero Tamanho;
Definir Numero Caracter_Num;

 

j = 2;
Total = 0;
TamanhoAlfa(Produto,Tamanho);
Enquanto (Tamanho > 1)

 

Inicio
LerPosicaoAlfa(Produto,Caracter_Num,Tamanho);
CaracterParaAlfa(Caracter_Num,Caracter_Alfa);
AlfaParaInt(Caracter_Alfa,Caracter_Num);
Total = Total + (Caracter_Num * j);
j = j + 1;
Se (j = 10)
j = 2;
Tamanho = Tamanho - 1;
Fim;

RestoDivisao(Total,11,Resto);
Resto = (11 - Resto);
Se ((Resto = 11) ou (Resto = 10))
Digito = "1";

senao
IntParaAlfa(Resto,Digito);

Este artigo ajudou você?