Erro nos codigos - pascal

esdras1997 · 2 de março de 2013

Galera o que tem de errado nesses codigos D: ?

Program TESTESENHA ;

 //VARIAVEIS
 var senha : real;

 Begin
 //APRESENTAÇÃO

 writeln('Bem vindo a calculadora pascal');

 //USUARIO

 writeln('Por favor digite a senha');
 read(senha);
 if(senha=123456) then
 begin 
 writeln('Senha correta')
 else
 writeln('Senha incorreta'

 end;

End.

rockzilla2109 · 3 de março de 2013

Primeiro não tem aquele "begin" e "end" para aquele "if"...

Begin e end seriam necessários apenas para que várias instruções sejam executadas de acordo com o resultado do teste "if". E tambem a aplicação do "begin" e "end" estavam incorretos. O conjunto "begin" e "end" funcionam do mesmo modo que as chaves "{" e "}" da linguagem C.

Exemplo do uso correto do "begin" e "end":


  if(variavelA > 10)then
  begin
     variavelB:= 2;
     variavelC:= 3;
     {demais operações para resultado verdadeiro do "if"}
  end
  else
  begin
    variavelB:= 4;
    variavelC:= 5;
    {demais operações para resultado falso do "if"}
  end;

Segundo, como ficou faltando fechar o parenteses no último "writeln", pode-se receber um erro do compilador.


Program TESTESENHA ;

 //VARIAVEIS
 var senha : real;

 Begin
 //APRESENTAÇÃO

 writeln('Bem vindo a calculadora pascal');

 //USUARIO

 writeln('Por favor digite a senha');
 read(senha);
 if(senha=123456) then
 [COLOR="Red"][B]//begin[/B][/COLOR] 
 writeln('Senha correta')
 else
 writeln('Senha incorreta'[COLOR="Red"][B]);[/B][/COLOR]

 [COLOR="Red"][B]//end;[/B][/COLOR]

End.