Wikilivros

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

Explorar interativamente o histórico
(Ver alterações pendentes à versão publicada)
[edição não verificada][edição não verificada]
← Edição anteriorEdição posterior →
Conteúdo apagado Conteúdo adicionado
VisualTexto wiki
Linha 109:
. . CONT:=CONT+1;
. . 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'O aluno de nome “',NOME,”' tem a média “',MEDIA,”' em suas notas.”');
. . . end
. . else
. . . writeln(“Não'Não são aceitas notas negativas.”');
. end;
end.
{testado no Copilador pascalzim 17/12/2010}
 
== Repeat (repita até) ==
Obtido em "https://pt.wikibooks.org/wiki/Pascal/Estrutura_de_repetição"