Construção De Algoritmos
Dissertações: Construção De Algoritmos. Pesquise 860.000+ trabalhos acadêmicosPor: jmdsantos • 23/10/2013 • 1.450 Palavras (6 Páginas) • 211 Visualizações
Relatório I
Esboço da solução em VisualG
algoritmo "Calculadora"
// Função : Calcular dois valores inteiros
// Autor : Jose Marcio Dias dos Santos
// Data : 28/09/2013
// Seção de Declarações
// procedimento para escrever na tela a palavra Calculadora
procedimento "Cabecalho"()
Inicio
limpatela
escreval(" ========================================")
escreval(" C A L C U L A D O R A ")
escreval(" ========================================")
fimprocedimento
//Procedimento para escrever o menu na tela
procedimento "menu"(var opcao:caracter)
inicio
escreval(" 1 - MENU PRINCIPAL") // Volta ao menu
escreval(" 2 - OPERACAO DE SOMA") // Operação de Soma
escreval(" 3 - OPERACAO DE SUBTRACAO") // Operação de Subtração
escreval(" 4 - OPERACAO DE MULTIPLICACAO") // Operação de Multiplicação
escreval(" 5 - OPERACAO DE DIVISAO") // Operação de Divisão
escreval(" 6 - OPERACAO DE EXPONENCIACAO") // Operação de Exponenciação
escreval(" 7 - OPERACAO DE RAIZ QUADRADA") // Operação de Raiz Quadrada
escreval(" 8 - OPERACAO DE PORCENTAGEM") // Operação de POrcentagem
escreva(" Digite opcao: ") // Opção selecionada
leia(opcao)
fimprocedimento
var
op: caracter //Recebe a opção selecionada pelo usuario
val1: inteiro //Valor de entrada
val2: inteiro //valor de entrada
res: inteiro // resultado dos valores de entradas pela operação selecionada
inicio
// Seção de Comandos
op := ""
enquanto op <> "0" faca // Enquanto a seleção for diferente de 0 continua
cabecalho() //Monta o cabeçalho
menu(op) //Monta o menu
se (op = "1") entao // Se a opção selecionada for 1 volta para o menu
Cabecalho()
menu(op)
fimse
escolha op
caso "2" // Realiza a operação de soma
Cabecalho()
escreval(" S O M A")
escreva(" Digite o primeiro valor...:")
leia(val1)
escreva(" Digite o segundo valor....:")
leia(val2)
res := (val1 + val2)
escreval(" RESULTADO....:", res)
leia(op)
caso "3" // Realiza a operação de Subtração
Cabecalho()
escreval(" S U B T R A C A O ")
escreva(" Digite o primeiro valor...:")
leia(val1)
escreva(" Digite o segundo valor....:")
leia(val2)
res := (val1 - val2)
escreval(" RESULTADO....:", res)
leia(op)
caso "4" // Realiza a operação de Multiplicação
Cabecalho()
escreval(" M U L T I P L I C A C A O")
escreva(" Digite o primeiro valor...:")
leia(val1)
escreva(" Digite o segundo valor....:")
leia(val2)
res := (val1 * val2)
escreval(" RESULTADO....:", res)
...