Calculadora_Digital(Prof_Eolisses)

Prévia do material em texto

Algoritmo: G:\Estudos\02 - Faculdade IESPLAN\Aulas\Aula 05 - 29 maio\CalculadoraDigital(atu
alizado-07jun12).alg
Data: 07/06/2012
 1 algoritmo "CalculadoraDigital"
 2 // Faculdade IESPLAN
 3 // Curso de Engenharia Civil
 4 // Disciplina: Métodos Computacionais
 5 // Autor: Prof. Eolisses F. Leopoldino
 6 // Data : 27/05/12
 7 var
 8 fator1, fator2, resultado: real
 9 fator3, op, contador, tamanho_string, x : inteiro
 10 vetorOp : vetor[0..6] de caractere
 11 fragmento, titulo_final: caractere
 12 sair : logico
 13 inicio
 14 //------------------------> inicializando as variáveis
 15 sair <- FALSO
 16 fator1 <- 0,0
 17 fator2 <- 0,0
 18 fator3 <- 0
 19 contador <- 0
 20 op <- 0
 21 //------------------------> alimentando os vetores
 22 vetorOp[0] <- "(1) - Somar"
 23 vetorOp[1] <- "(2) - Subtrair"
 24 vetorOp[2] <- "(3) - Multiplicar"
 25 vetorOp[3] <- "(4) - Dividir"
 26 vetorOp[4] <- "(5) - Raiz Quadrada"
 27 vetorOp[5] <- "(6) - Elevar <X> à <Y> Potência"
 28 vetorOp[6] <- "(7) - Fatorial"
 29 //------------------------> Apresentando as opções
 30 repita //-- início do loop que controla toda a aplicação
 31 escreval("CALCULADORA DIGITAL - CURSO DE ENGENHARIA - IESPLAN")
 32 escreval("===================================================")
 33 escreval("")
 34 //------------
 35 para contador de 0 ate 6 faca
 36 escreval(vetorOp[contador])
 37 fimpara
 38 escreval("")
 39 //-------------------------> captura opção do usuário e limpa a tela
 40 escreva("Entre com uma opção: ")
 41 leia(op)
 42 se (op > 0) e (op <= 7) entao
 43 limpatela
 44 //=========================> formata o título
 45 tamanho_string <- compr(vetorOp[op - 1]) //---> retorna o 
tamanho da string
 46 fragmento <- copia(vetorOp[op - 1],7,tamanho_string) //---> copia uma 
parte da string
 47 titulo_final <- maiusc(fragmento) //---> converte a
 string para caixa alta
 48 //=========================> exibe o título da operação escolhida
 49 escreval("****** " + titulo_final + " ******")
 50 escreval("")
 51 //=========================> solicita os fatores de cálculo
 52 escolha op
 53 caso 1
 54 escreval("Entre com dois números inteiro ou reais:")
 55 escreva("Nr 1: ")
 56 leia(fator1)
 57 escreva("Nr 2: ")
 58 leia(fator2)
 59 //-------resolvendo
 60 resultado <- fator1 + fator2
 61 //-------
 62 caso 2
 63 escreval("Entre com dois números inteiro ou reais:")
 64 escreva("Nr 1: ")
 65 leia(fator1)
 66 escreva("Nr 2: ")
 67 leia(fator2)
 68 //-------resolvendo
 69 resultado <- fator1 - fator2
 70 //-------
 71 caso 3
 72 escreval("Entre com dois números inteiro ou reais:")
 73 escreva("Nr 1: ")
 74 leia(fator1)
 75 escreva("Nr 2: ")
 76 leia(fator2)
 77 //-------resolvendo
 78 resultado <- fator1 * fator2
 79 //-------
 80 caso 4
 81 escreval("Entre com dois números. O segundo deve ser um inteiro maio
r que 0:")
 82 escreva("Nr 1: ")
 83 leia(fator1)
 84 repita //---> repete até que o divisor seja maior que zero
 85 escreva("Nr 2: ")
 86 fator2 <-0
 87 leia(fator2)
 88 ate fator2 > 0
 89 //-------resolvendo
 90 resultado <- fator1 / int(fator2) //-> o int() retorna o inteiro de 
uma fração
 91 //-------
 92 caso 5
 93 escreval("Entre com um número inteiro:")
 94 escreva("Nr 1: ")
 95 leia(fator1)
 96 //-------resolvendo
 97 resultado <- raizq(fator1)
 98 //-------
 99 caso 6
 100 escreval("Entre com a Base e a Potência:")
 101 escreva("Base: ")
 102 leia(fator1)
 103 escreva("Potência: ")
 104 leia(fator2)
 105 //-------resolvendo
 106 resultado <- fator1 ^ fator2
 107 //-------
 108 caso 7
 109 escreval("Entre com um número inteiro:")
 110 escreva("Nr 1: ")
 111 leia(fator1)
 112 //-------inicializa variáveis
 113 resultado <- 1
 114 x <- 1
 115 //-------
 116 enquanto (x <= fator1) faca
 117 resultado <- resultado * x
 118 x <- x + 1
 119 fimenquanto
 120 //-------
 121 outrocaso
 122 escreva("Essa mensagem nunca será executada!")
 123 fimescolha
 124 //-------------------------> apresenta o resultado
 125 escreva("R: [ ", resultado, " ]")
 126 //-------------------------> apresenta a opção para sair ou continuar
 127 escreval("")
 128 escreval("")
 129 op <-0
 130 escreva("Sair do Sistema? <SIM>-1 <NÃO>-2 : ")
 131 leia(op)
 132 se op = 1 entao
 133 sair <- VERDADEIRO
 134 senao
 135 sair <- FALSO
 136 fimse
 137 //------------------------
 138 fimse
 139 limpatela
 140 ate sair = VERDADEIRO
 141 fimalgoritmo