Pascal/Estrutura de repetição: diferenças entre revisões

sem resumo de edição
[edição não verificada][edição verificada]
m (Foram revertidas as edições de 187.19.248.79 (disc) para a última versão por 200.208.210.50)
Sem resumo de edição
N1,N2,N3,MEDIA:real;
CONT:integer;
begin
FOR CONT:=1 to 10 do {para cont de 1 a 10 faça}
begin
write('Digite o nome e as 3 notas do ',cont,'o aluno ');
read(NOME,N1,N2,N3);
if (N1>=0) and (N2>=0) and (N3>=0) and (N1<=10 00) and (N2<=10 00) and (N3<=10 00) then
begin
MEDIA:=(N1+N2+N3)/3;
writeln('O aluno de nome ',NOME,' tem a média ',MEDIA,' em suas notas ');
end
</syntaxhighlight>
 
= Crítica =
Usamos uma crítica para conferir se foi digitado um valor correto, usando para isso um teste lógico, dentro de uma repetição (laço), de onde só sairá quando for digitado um valor desejado, ou seja, obrigando que seja digitado um valor válido
5 622

edições