Projeto E Desenvolvimento De Algoritmos
Ensaios: Projeto E Desenvolvimento De Algoritmos. Pesquise 860.000+ trabalhos acadêmicosPor: ls123345 • 8/11/2014 • 431 Palavras (2 Páginas) • 496 Visualizações
Crie um algoritmo em Visualg que informe se o CPF de Usuário e Valido ou Invalido?
algoritmo "CPF"
// Função :
// Autor :
// Data : 30/10/2014
// Seção de Declarações
var
cont,dv1,dv2,s1,s2:inteiro
cpf:caracter
inicio
// Seção de Comandos
escreval("Entre com CPF com espaço:")
leia(cpf)
para cont de 1 ate 9 faca
s1<-s1+(cont*caracpnum(copia(cpf,cont,1)))
fimpara
dv1<-s1 mod 11
se dv1=10 entao
dv1<-0
fimse
se dv1=caracpnum(copia(cpf,10,1)) entao
para cont de 0 ate 9 faca
s2<-s2+(cont*caracpnum(copia(cpf,cont+1,1)))
fimpara
dv2<-s2 mod 11
se dv2=10 entao
dv2<-0
fimse
se dv2=caracpnum(copia(cpf,11,1)) entao
escreval("CPF valido")
senao
escreval("CPF invalido")
fimse
senao
escreval("CPF invalido")
fimse
fimalgoritmo
Questão 2 PDA
algoritmo "CPF"
// Função :
// Autor :
// Data : 30/10/2014
// Seção de Declarações
var
cont,dv1,dv2,s1,s2:inteiro
cpf:caracter
inicio
// Seção de Comandos
escreval("Entre com CPF com espaço:")
leia(cpf)
para cont de 1 ate 9 faca
s1<-s1+(cont*caracpnum(copia(cpf,cont,1)))
fimpara
dv1<-s1 mod 11
se dv1=10 entao
dv1<-0
fimse
se dv1=caracpnum(copia(cpf,10,1)) entao
para cont de 0 ate 9 faca
s2<-s2+(cont*caracpnum(copia(cpf,cont+1,1)))
fimpara
dv2<-s2 mod 11
se dv2=10 entao
dv2<-0
fimse
se dv2=caracpnum(copia(cpf,11,1)) entao
escreval("CPF valido")
senao
escreval("CPF invalido")
fimse
senao
escreval("CPF invalido")
fimse
fimalgoritmo
Questão 1 PDA
Inicio
Fichas 10
Lançamento
...