script de login

[Nicolas Catalani 0]

Olá pessoal. Eu estava tentando fazer um sistema simples de login em pascal que era desta forma

 

Program login ;
Var
user: string;
senha: string;
code: integer;
ac: boolean; 
Begin
   write ('Digite o nome de usuário: ');
   read (user);
   ClrScr;
   write ('Digite a senha: ');
   read (senha);
   ClrScr;
   write ('Digite o código de segurança: ');
   read (code);
   ClrScr;
   if (user = 'admin') and (senha = 'admin') and (code = 11) then
   begin
   ac := true;
   writeln ('Bem vindo ao painel de controle,');
   writeln ('Espero que use com sabedoria.');
   end;
   if (user <> 'admin') and (senha <> 'admin') and (code <> 11) then
   ac := false;
   write ('Acesso negado. Verifique seus dados');   
End.

 

Já que Pascal não usa DB, pensei em colocar um array que transportace 3 usuários, mas não funciona. Alguém pode ajudar?

[Weigon 0]

Amigo esse linguagem é do programa VISUALG

 

algoritmo "Login"
var
user,senha,code:caracter
ap:logico
inicio
escreva("Digite o nome de usuario: ")
leia(user)
limpatela
escreva("Digite a Senha: ")
leia (senha)
limpatela
escreva("Digite codigo de segurança: ")
leia(code)
limpatela

se (user = "admin") e (senha = "admin") e (code = "123") entao
  ap:=verdadeiro
  escreval("Bem Vindo ao Painel de Controle")
  escreval("Espero que use com sabedoria")
senao
  ap:=falso
  escreva("Acesso Negado. Verifique seus dados.")
fimse
fimalgoritmo

 

 

Amigo esse linguagem é do programa PASCAL

program Login;
uses Crt;
var
user,senha,code:string;
ap:boolean;
begin
  write('Digite o nome de usuario: ');
  readln(user);
  ClrScr;
  write('Digite a Senha: ');
  readln (senha);
  ClrScr;
  write('Digite codigo de segurança: ');
  readln(code);
  ClrScr;

  if (user = 'admin') and (senha = 'admin') and (code = '123') then begin
     ap:=true;
     writeln('Bem Vindo ao Painel de Controle');
     writeln('Espero que use com sabedoria');
  end else begin
     ap:=false;
     write('Acesso Negado. Verifique seus dados.');
  end;
end.

[Nicolas Catalani 0]

Obrigado por tentar ajudar, mas não é bem isso que desejo. Gostaria de uma forma de colocar mais de um usuário e senhas para acessar, mas pascal não tem ligação com databases. Teria como fazer algo do tipo?

[Marcelo de Andrade 2]

Amigo, já tentou utilizar vetores? na verdade, utilize o tipo RECORD para salvar as informações de login. Dê uma olhada na forma que fiz o sistema a seguir: http://forum.imasters.com.br/index.php?/topic/416038-script-agenda-telefonica-em-pascal/ e tente adaptar para a sua necessidade.

 

Abraço.