Ola, queria a ajuda de alguem. Estou chegando agora no Forum.
Estou tentando criar esse programa basico, mas estou com problema no looping ele executa o codigo na primeira vez correto, mas na 2º o "FOR" redireciona o texto direto para "Digite a nota 1", ao inves de começar pelo nome do aluno.
Outra duvida como faria para que o programa verifica-se a cada nota digitada se é não é invalida (<0 ou >10)
Grato.
obs.: tentando programar pelo XCODE.
program media_notas;
var NOME: string;
N1, N2, N3, MEDIA: real;
CONT:integer;
begin
FOR CONT:=1 to 10 do
begin
writeln('Digite o nome do aluno:',cont,'');
read (NOME);
writeln('Digite a nota 1:');
read (N1);
writeln('Digite a nota do Spa:');
read (N2);
writeln('Digite a nota 2:');
read (N3);
if (N1>=0) and (N2>=0) and (N3>=0) and (N1<=10) and (N2<=10) and (N3<=10) then
begin
MEDIA :=(N1*2+N2*4+N3*4)/10;
writeln('O aluno de nome ',NOME,' tem a media ',MEDIA:0:2,' em suas notas.');
end
else
begin
writeln('Nao sao aceita notas negativas ou maiores que 10.');
end;
end;
end.
