o programinha em pascal nao esta entrando na questao do senao

sabing
(usa Ubuntu)

Enviado em 21/04/2011 - 01:03h

o programinha nao esta validando a senha acho que o problema esta no senao (else) algum erro assim
Program teste;
var
//senha do adm
senha:integer;
//nota dos alunos
n1:real;
n2:real;
n3:real;
n4:real;
//media
media:real;
//nome do aluno
nome:string[20];

Begin
write('Digite a senha do administrador = ');
read(senha);
begin;
if senha = 123 then
write('Digite o nome do aluno = ');
read(nome);
write('Digite a nota do primeiro semestre = ');
read(n1);
write('Digite a nota do segundo semestre = ');
read(n2);
write('Digite a nota do terceiro semestre = ');
read(n3);
write('Digite a nota do quarto semestre = ');
read(n4);
media:=(n1*1+n2*2+n3*3+n4*4)/4;
write('Sua nota ',nome ,'sua media ',media);
if media < 7 then
writeln('Terá que estudar mais');
if media = 5 then
writeln('Terá que estudar mais');
if media > 7 then
writeln('Parabens ');
if media = 10 then
writeln('Parabens ')
else
write('Você não tem privilegio acesso ao administrador');
end;
End.

victor_rocha
(usa Debian)

Enviado em 21/04/2011 - 06:58h

oi, dá uma olhada nesse documento:

http://pt.wikibooks.org/wiki/Pascal/Estrutura_Condicional

parece que vc tá com um problema de 'else pendente', ou seja, o else 'pensa' que se refere ao "if media = 10" e não ao "if senha = 123".
tente contornar fazendo

if senha = 123
Begin
{ todo o processamento das notas vai aqui }
End;
Else write('Você não tem privilegio acesso ao administrador');

ou alguma coisa parecida, ou seja, deixe bem claro onde começa um e termina outro usando combinação de Begin e End nos blocos.

boa sorte :-)