Cadastro De Cliente
Dissertações: Cadastro De Cliente. Pesquise 860.000+ trabalhos acadêmicosPor: DiegoFerroni • 10/3/2015 • 634 Palavras (3 Páginas) • 360 Visualizações
algoritmo "Cadastro - Nome + Telefone"
// Função : ICV
// Autor : Julio & Carla
// Data : 07 / 06/ 2011
// Seção de Declarações
// Digitar nome do Usuário e escolher a função
// abaixo, incluir nome/telefone do usuário, consultar,
// corrigir os dados, exibir e sair do programa.
var
opcao,tipo:inteiro
nome: vetor[1..2] de caracter // Nome
tel: vetor[1..2] de real // Telefone
i,j: inteiro
cont: inteiro
k: caracter
l: inteiro
inicio
// Seção de Comandos
escreval("-_-Cadastro de Cliente-_-")
escreval ("")
escreval("1- Incluir")
escreval("2- Corrigir")
escreval("3- Consultar")
escreval("4- Excluir")
escreval("5- Sair")
escreval ("")
escreval ("Digite a Opção:")
leia(opcao)
escreval ("")
caso opcao=1 entao
para i de 1 ate 2 faca
escreval("Entre com o",i,"° Nome")
Leia (nome[i])
escreval ("")
escreval ("Entre com o Telefone: ")
leia (tel[i])
escreval ("")
fimpara
para i de 1 ate 2 faca
para j de 1 ate 2 faca
caso (nome[i] >= nome[j]) entao
k:= nome[i]
nome[i]:= nome[j]
nome[j]:= k
fimpara
escreval ("Nomes em Ordem Alfabetica:")
para i de 1 ate 2 passo 1 faca
escreval
escreva (nome[i])
escreval
Fimpara
escreval ("")
escreval("Deseja Alterar a Informação do Usuário?")
escreval("2- Corrigir")
escreval("3- Consultar")
escreval("4- Excluir")
escreval("5- Sair")
leia (opcao)
caso opcao =2 entao
escreval("Alterar Dados")
escreval ("")
...