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 verificada]
← Edição anteriorEdição posterior →
Conteúdo apagado Conteúdo adicionado
VisualTexto wiki
m Foram revertidas as edições de 201.22.148.2 (disc) para a última versão por Helder.wiki
Sem resumo de edição
Linha 12:
{1º 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'O aluno de nome “',NOME,”' tem a média “',MEDIA,”' em suas notas ”');
end
else
begin
writeln(“Não'Não são aceites notas negativas ”');
end;
{2º 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'O aluno de nome “',NOME,”' tem a média “',MEDIA',” em suas notas ”');
end
else
begin
writeln(“Não'Não são aceitas notas negativas ”');
end;
{3º ALUNO}
Linha 37:
{50º 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'O aluno de nome “',NOME,”' tem a média “',MEDIA,”' em suas notas ”');
end
else
begin
writeln(“Não'Não são aceitas notas negativas ”');
end;
end
Obtido em "https://pt.wikibooks.org/wiki/Pascal/Estrutura_de_repetição"