prova de php
Autor: kzannely | Publicado: 2011-06-19T07:12:00-07:00

algoritmo "semnome"
// Função :
// Autor :
// Data : 1/6/2011
// Seção de Declarações 
var
login,senha:caracter
logado:logico
a,b,c,opcao:inteiro
nome: vetor[1..10,1..1] de caracter
logi: vetor[1..10,1..1] de caracter
password:vetor[1..10,1..1] de caracter
inicio
login&lt;-"admin"
senha&lt;-"1234"
a&lt;-1
enquanto a=1 faca
escreval("Área de usuário!")
escreva("Login: ")
leia(login)
escreva("Senha: ")
leia(senha)
b&lt;-1
enquanto b = 1 faca
se (login = "admin") e (senha="1234") entao
escreva("Usuário logado!")
logado&lt;-verdadeiro
se logado = verdadeiro entao
escreval("Área do Cliente ",login,".")
escreval("************************************************")
escreval("*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Escolha uma opção:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *")
escreval("*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1 - cadastrar cliente.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *")
escreval("*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2 - listar Clientes.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *")
escreval("*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 3 - excluir cliente.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *")
escreval("*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 4 - editar cliente.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *")
escreval("*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 5 - deslogar.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *")
escreval("*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 6 - Sair.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *")
escreval("*")
escreva("Opção: ")
leia(opcao)
escolha(opcao)
a&lt;-a+1
caso 1
c&lt;-1
enquanto c&lt;10 faca
escreval(" Cadastrando novo usuário ")
escreva("Insira o Nome: ")
leia(nome[c,1])
escreva("Insira o Login: ")
leia(logi[c,1])
escreva("Insira a Senha: ")
leia(password[c,1])
escreval("digite 1 para realizar um novo cadastro e 2 para voltar ao menu")
leia(opcao)
escolha(opcao)
caso 1
c&lt;-c+1
caso 2
c&lt;-11
fimescolha
fimenquanto

caso 2
c&lt;-1
enquanto c&lt;10 faca
escreval("Nome:",nome[c,1]," Login:",logi[c,1]," Senha:",password[c,1])
c&lt;-c+1
fimenquanto
escreval("digite 1 para voltar ao menu")
leia(opcao)
escolha(opcao)
caso 1
c&lt;-11
fimescolha

caso 3
c&lt;-1
enquanto c&lt;10 faca
escreval("digite o usuario que deseja excluir")
leia(opcao)
nome[opcao,1]&lt;-""
logi[opcao,1]&lt;-""
password[opcao,1]&lt;-""
escreval("digite 1 para excluir outro usuario e 2 para voltar ao menu")
leia(opcao)
escolha(opcao)
caso 1
c&lt;-c
caso 2
c&lt;-11
&nbsp;fimescolha
fimenquanto
caso 4
c&lt;-1
enquanto c&lt;10 faca
escreval("Digite o usuario que deseja editar")
leia (opcao)
escreval("insira o novo nome")
leia(nome[opcao,1])
escreval("insira o novo logi")
leia(logi[opcao,1])
escreval("insira o novo password")
leia(password[opcao, 1])
escreval("digite 1 para editar outro usuario e 2 para voltar ao menu")
leia(opcao)
escolha(opcao)
caso 1
c&lt;-c
caso 2
c&lt;-11
fimescolha
fimenquanto
caso 5
b&lt;-2
caso 6
b&lt;-2
a&lt;-2
fimescolha
senao
escreva("erro ao logar!")
fimse
fimse
fimenquanto
fimenquanto
fimalgoritmo


aqui e hum pouco do trabalho que ah mim e confiado a desenvolver........
caso alguem queira testar basta instalar este programa e depois abrir e logo em serguida apetar
f9 para exercutar .depois disso e so seguir o que for pedido.
kzan-nelyounico@hotmail.com