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

N1,N2,N3,MEDIA:real;

CONT:integer;

FOR CONT:=1 to 10 do {para cont de 1 a 10 faça}

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

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