Question

Criar o programa abaixo em Pascal.
Escreva um programa que verifique a validade de uma senha
fornecida pelo usuário. A senha válida é o número 1234.
Devem ser impressas as seguintes mensagens:
Se Verdadeiro
ACESSO PERMITIDO caso a senha seja válida.
Senão
ACESSO NEGADO caso a senha seja inválida.

Answer 1

Antenção: Eu nunca usei pascal então não sei muito como funciona, eu tive que criar um input personalizado para esconder a senha mas diante a isso o botão de apagar parou de funcionar se tu quiser integrar isso, desculpa realmente não sei a syntax do pascal, eu criei nesse editor online não sei se em todos os editores os compiladores são o mesmos https://onlinegdb,com/Hyg4fXQb7w

Resposta:

program Hello;

uses crt;

var attempt, password, username: String;

var ch : Char;

var x : integer;

begin

   ClrScr;

   Writeln('Digite seu nome de usuário: ');

   Read(username);

   Write('Digite a senha de acesso: ');

   password:='1234';

   attempt:='    ';   {spaces the length of the password}

   x:=0;

   Repeat

     ch:=ReadKey;

     If ch<>#13 then Write('*');

     x:=x+1;

     attempt[x]:=ch;

   Until ch=#13;

   WriteLn;

   ClrScr;

   if attempt=password then WriteLn('Parabéns ', username, '!!! ACESSO PERMITIDO')

   else WriteLn(username, ' senha digitada inválida. ACESSO NEGADO');

   ReadLn;

end.