Logaritmo Exec16 E Exerc17

algoritmo "questao 16"

// Escrever um algoritmo que leia o nome e as três notas obtidas por um aluno durante o semestre. Calcular a sua

// média (aritmética), informar o nome e sua menção aprovado (media >= 7), Reprovado (media <= 5) e Recuperação

// (media entre 5.1 a 6.9).

var

nome, op : caractere

nota1, nota2, nota3, media : real

inicio

repita

escreval ("Informe o nome do aluno: ")

leia (nome)

escreval ("Informe a primeira nota: ")

leia (nota1)

escreval ("Informe a segunda nota: ")

leia (nota2)

escreval ("Informe a terceira nota: ")

leia (nota3)

media <- (nota1 + nota2 + nota3) / 3

se media >= 7 entao

escreval ("O aluno ", nome, " está aprovado. A média foi: ", media)

fimse

se media <= 5 entao

escreval ("O aluno ", nome, " está reprovado. A média foi: ", media)

fimse

se (media >= 5.1) e (media <= 6.9) entao

escreval ("O aluno ", nome, " está de recuperação. A média foi: ", media)

fimse

escreval("deseja continuar? [S/N]: ")

leia(op)

limpatela

ate op = "n"

escreval

escreval("saindo do sistema. Valeu!!")

fimalgoritmo

algoritmo "semnome"

// Função : Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive).

// Autor :

// Data : 28/04/2014

// Seção de Declarações

var

num1, num2 : vetor[1..6] de inteiro

j : inteiro

op: caracter

inicio

// Seção de Comandos

escreval("programa legal")

repita

para j de 1 ate 6 faca

escreva("Digite o", j, "o. número: ")