-
Posts
7 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de Lindemberg_santos em Iniciante Programação ( Ajuda ) foi marcado como solução
Muito obrigado Simon, explica muito bem, aprendi de verdade
UPDATE
Melhorei o programa, olha só:
Program Calc_media_Aluno ; Var nota1, nota2, nota3:Integer;serie, nome:string[20];media:real; Begin writeln('Informe o nome do aluno'); readln(nome); writeln('Informe a serie do aluno'); readln(serie); writeln('Informe a primeira nota'); readln(nota1); writeln('Informe a segunda nota'); readln(nota2); writeln('Informe a terceira nota'); readln(nota3); // Calc_Media media := (nota1+nota2+nota3) /3; // Condição e informações do aluno IF media>=7 then Begin write('Nome: ',nome); write(' '); write('Serie: ',serie); write(' Aprovado media ',media: 0:1); end Else Begin write('Nome: ',nome); write(' '); write('Serie: ',serie); write(' Reprovado media ',media: 0:1); end; End.
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais