[URGENTE] VISUALG DUVIDAS

[wemy felype]

ola pessoal meu professor me passou um trabalho de visualg que é fazer um algoritimo com

*lista de pessoas cadastradas

*cadastro de pessoas

*editar cadastros

*excluir cadastros

e

*sair

alguns já consegui e outros estou quebrando a cabeça.

algoritmo "sistema de login"

var
login,senha,numenu,nome,nomeusu,senhausu,posição: caracter
logado : logico
list,i:inteiro
cadastro:vetor[1..5,1..3] de caractere

inicio

                                                    //aqui é onde vai se feito o login

        logado<- falso
        repita
        escreval("                          Area de Usuario")
        escreva("login: ")
        leia(login)
        escreva ("senha: ")
        leia(senha)
        se( login = "admin" ) e ( senha = "123" ) então
        logado <- verdadeiro
        escreval("                                  usuario logado")
        senao
        logado <- falso
        limpatela
        escreval("                             usuario ou senha errado")
        fimse
        ate logado = verdadeiro

        cadastro[1,1]<-"wemy"
        cadastro[1,2]<-"admin"
        cadastro[1,3]<-"123456"
        cadastro[2,1]<-"joao"
        cadastro[2,2]<-"jj"
        cadastro[2,3]<-"123"
        cadastro[3,1]<-"carlos"
        cadastro[3,2]<-"car"
        cadastro[3,3]<-"1234"
        

                                     //menu de opçoes

        se logado = verdadeiro então
        
        repita
        
        
        escreval("Àrea do cliente ",login,".")
        escreval("*************************************************************")
        escreval("*    Escolha uma opção                                      *")
        escreval("*  1 - Listar Clientes.                                     *")
        escreval("*  2 - Cadastrar clientes.                                  *")
        escreval("*  3 - excluir cliente.                                     *")
        escreval("*  4 - Editar cliente.                                      *")
        escreval("*  5 - Sair.                                                *")
        escreval("*************************************************************")
        escreva("opção: ")
        leia(numenu)
        escolha(numenu)
        
        caso "1" //Lista de Clientes

        para i de 1 ate 5 faca
             para list de 1 ate 3 faca
                  escreva("|",cadastro[i,list],"|")
             fimpara
             escreval
             escreval("---------------")
        fimpara
                     escreval()

        caso "2" //Cadaatro de clientes
        escreval("cadastro de clientes")
        escreva("digite seu nome: ")
        leia(nome)
        escreva("digite o nome de usuario: ")
        leia(nomeusu)
        escreva("digite sua senha: ")
        leia(senhausu)
        escreval("cadastro Feito com sucesso")
        escreval("")//fim cadastro de cliente
              para i de 1 ate 5 faca
                   se (cadastro[i,1] = "") e (cadastro[i,2] = "") e (cadastro[i,3] = "")  então
                        cadastro[i,1] <- nome
                        cadastro[i,2] <- nomeusu
                        cadastro[i,3] <- senhausu
                        interrompa
                   fimse
              fimpara

        caso "3" //excluir Clientes
             escreva("Qual a posição do cliente")
             leia(posição)
        caso "4" //Edital clientes


        caso "5" //Sair
        logado<-falso
        
        
        
        
        fimescolha

        ate logado = falso
        fimrepita

        fimse
        


fimalgoritmo

Edited August 31, 2011 by kuroi
Adicionar tag CODE