Wikilivros

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

Módulo Discussão

Pascal/Estrutura de repetição (editar)

Revisão das 02h10min de 20 de abril de 2012

75 bytes removidos ,  20 de abril de 2012
sem resumo de edição
(Ver alterações pendentes à versão publicada)
[edição não verificada][edição verificada]
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
{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}
{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
Utilizador anónimo
Obtido em "https://pt.wikibooks.org/wiki/Especial:MobileDiff/235682"