Ir para conteúdo
Fórum Script Brasil

A-Kun

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre A-Kun

  • Data de Nascimento 10/09/1994

Perfil

  • Gender
    Male
  • Location
    Pernambuco

A-Kun's Achievements

0

Reputação

  1. Bem, eu ainda sou muito iniciante no Delphi. E no curso que eu estou fazendo, tinha uma questão que queria que eu fizesse com que um login e senha fossem aceitos pelo programa. Tipo, que quando digitasse o login "aluno" com a senha "123456", o programa exibisse a mensagem "Acesso permitido", e se fosse digitado errado, exibiria "Acesso negado". Eu tentei de todos os modos que pude, mas só consigo fazer funcionar até o "login". Alguém tem ideia de como pode se resolver esse problema? O código que eu fiz foi esse: program LOGIN_E_SENHA; {$APPTYPE CONSOLE} uses SysUtils; var login, senha: String; begin Writeln('Digite o Login'); Read(login); IF (login='aluno') THEN Begin Writeln('Digite a senha'); Read(senha); readln; end; if (senha='123456') then Begin Writeln('Acesso permitido'); Readln; End Else Begin Writeln('Acesso Negado'); readln; End; readln; end.
×
×
  • Criar Novo...