Media_Harmonica_(Com_inteligência)_Prof_Eolisses

Prévia do material em texto

Algoritmo: G:\Estudos\02 - Faculdade IESPLAN\Aulas\Aula 04 - 23 maio\MediaHarmônicaComPara_
Ate.alg
Data: 07/06/2012
 1 algoritmo "MediaHarmonicaComPara_Ate"
 2 // Faculdade IESPLAN
 3 // Curso de Engenharia Civil
 4 // Disciplina: Métodos Computacionais
 5 // Autor: Prof. Eolisses F. Leopoldino
 6 var
 7 nome : caracter
 8 nota : vetor[0..2] de real
 9 disciplina: vetor[0..2] de caracter
 10 nota_harmonica : real
 11 contador: inteiro
 12 inicio
 13 //---------------------------------> alimentando o vetor disciplina
 14 disciplina[0] <- "a. Física I: "
 15 disciplina[1] <- "b. Álgebra Linear: "
 16 disciplina[2] <- "c. Análise Estrutural: "
 17 //-------solicita e guarda o nome do aluno
 18 escreval("----------[ DIÁRIO DE NOTAS ]----------")
 19 escreval("")
 20 escreva("1) Nome do Aluno: ")
 21 leia(nome)
 22 escreval("")
 23 //---------------------------------> solicita as três notas
 24 escreval("2) Notas:")
 25 contador <- 0
 26 //---------------------------------> aqui começa o loop
 27 para contador de 0 ate 2 faca
 28 escreva(disciplina[contador])
 29 leia(nota[contador])
 30 contador <- contador - 1 //incrementa a variável
 31 fimpara
 32 //------
 33 escreval("") // acrescenta uma linha em branco
 34 //---------------------------------> Calculando a nota harmônica
 35 nota_harmonica <- 3/(1/nota[0] + 1/nota[1] + 1/nota[2])
 36 escreval("3) A Nota Harmônica do aluno " + nome + " é : ", nota_harmonica)
 37 
 38 fimalgoritmo