Algoritmo e programação

Algoritmos e Programação / Lista de Exercícios de Fixação

1. Calcule a média aritmética das 3 notas de um aluno e mostre, além do valor da média, uma mensagem de "Aprovado", caso a média seja igual ou superior a 6, ou a mensagem "reprovado", caso contrário. A seguir, encontre o maior dos 3 valores e o escreva com a mensagem : "É o maior ".

algoritmo "Lista: média"

var nota1,nota2,nota3,media:real inicio escreval("digite a primeira nota") leia(nota1) escreval("digite a segunda nota") leia(nota2) escreval("digite a terceira nota") leia(nota3) se (nota1>nota2) e (nota1>nota3) entao escreval("a maior nota eh:", nota1) fimse se (nota2>nota1) e (nota2>nota3) entao escreval("a maior nota eh:",nota2) fimse se (nota3>nota1) e (nota3>nota2) entao escreval("a maior nota eh:",nota3) fimse media<-(nota1+nota2+nota3)/3 escreval("sua media eh:",media) se(media>=6) entao escreval("aprovado") senao escreval("reprovado") fimse fimalgoritmo

2.1. Aprimore o exercício 1, modificando o algoritmo para que, após o cálculo da média de um aluno, a rotina permita realizar o mesmo cálculo sobre outros alunos, na mesma execução do programa.

algoritmo "Lista: média"

var nota1,nota2,nota3,media:real alunos,cont:inteiro

inicio escreval("digite o numero de alunos") leia(alunos) cont<-0 enquanto (cont<alunos) faca escreval("digite a primeira nota") leia(nota1) escreval("digite a segunda nota") leia(nota2) escreval("digite a terceira nota") leia(nota3) se (nota1>nota2) e (nota1>nota3) entao escreval("a maior nota eh:", nota1) fimse se (nota2>nota1) e (nota2>nota3) entao escreval("a maior nota eh:",nota2) fimse se (nota3>nota1) e (nota3>nota2) entao escreval("a maior nota eh:",nota3) fimse media<-(nota1+nota2+nota3)/3 escreval("sua media eh:",media) se(media>=6) entao escreval("aprovado") senao escreval("reprovado")
fimse