Cadastro de Clientes

[Julio da Silva 0]

Olá Pessoal, tudo bem? Minha dúvida é sobre esse algoritmo feito no VisualG...

Fiz um cadastro usando vetor, mas não sei se minha ideia está correta, porque

isso foi um trabalho que meu professor pediu e ainda estou na segunda semana do curso!

E ele enrola muito, não explica bem, tenho que ficar estudando por conta própria.

Então fiquei na dúvida de como montar, não sei como faz pra apagar ou corrigir dados

do algoritmo já escrito/consultar, também não sei... Se puderem me dar essa força...

Grande abraço! *E não sei se o uso do caso está correto, se puderem me explicar isso também! :D

 

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 ("")
    escreval("Alterar Nome - 1")
    escreval("Alterar Telefone - 2")
    leia(tipo)
caso tipo=1 entao
    escreva("Altere o Nome:")
    para cont de 1 ate 2 faca
    escreval (nome[cont])
    lista
outrocaso
    caso tipo=2 entao
    escreva("Altere o Telefone:")
    escreval (tel[cont])

   caso opcao =3 entao
   escreval("Consultar Dados")
   escreval("Consultar Nome - 1")
   escreval("Consultar Telefone - 2")
   leia(tipo)
caso tipo=1 entao
   escreva("Consulte o Nome:")
   escreval ("Nomes em Ordem Alfabetica:")
   para i de 1 ate 2 passo 1 faca
   escreval
   escreva (nome[i])
   escreva
   escreval
   outrocaso
caso tipo=2 entao
   escreva("Consulte o Telefone:")
   outrocaso
caso opcao=4 entao
   escreval("Excluir Dados:")
   escreval("Excluir Nome - 1")
   elimine (nome[1,2)
   escreval("Excluir Telefone - 2")
leia(tipo)
   caso
   tipo=1 entao
   escreva("Exclua o Nome:")
   outrocaso
   caso tipo=4 entao
   escreva("Exclua o Telefone:")
      fimpara
fimalgoritmo

[quitZAUMMM 18]

Tudo é simples, já que está usando vetor..

você primeiro precisa saber mecher com seus índices..

 

//Cadastro:

Leia (vetor[indice]);

indice <- indice +1;

 

//Consulta

leia (indice_consulta);

Escreva(vetor[indice_consulta]);

 

//Exclusão

leia (indice_exclusao);

//aki você decide se irá apenas zerar esse registro, ou se irá apagar msm e terá que deslocar td mundo para cubrir a posição dele.

vetor[indice_exclusao] = 0;

 

[]s