Construção De Algoritmos

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)