Algoritmo em visualg - Validação de CPF

Entre em contato com a gente!

Ajuda e Doações ao Blog- 

Pix mvf5system@gmail.com

Algoritmo em visualg - Validação de CPF

algoritmo "Validação de CPF"
// Função :
// Autor :
// Data :
// Seção de Declarações
var
cpf: caracter
n_cpf:vetor[1..11] de inteiro
soma1:vetor [1..9] de inteiro
soma2:vetor[1..10] de inteiro
s1:inteiro
s2:inteiro
x:inteiro
resto1:inteiro
resto2:inteiro
inicio
escreval("******************VALIDAÇÃO CPF!******************")
escreval("Digite o CPF:")
leia(cpf)
para x de 1 ate 11 faca
   n_cpf[x]:=caracpnum(copia(cpf,x,1))

fimpara
para x de 1 ate 9 faca
   ------------------------------------
-----------------------------------------
------------------------------------------
------------------------------------------
------------------------------------------------------
se(resto1=n_cpf[10])e (resto2=n_cpf[11])entao
   escreval()
   escreval(cpf,"  Esse Cpf é Valido")
senao
   escreval()
   escreval(cpf,"  Esse Cpf não é Valido!")
fimse
fimalgoritmo

Precisando do código entre em contato:
Trabalhos.:
E-mail: mvf5system@gmail.com
Blog: http://mvf5-system.blogspot.com.br/
Facebook: https://www.facebook.com/mvf5systems