TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Аlgoritmo "Calculadora"

Abstract: Аlgoritmo "Calculadora". Pesquise 860.000+ trabalhos acadêmicos

Por:   •  20/2/2015  •  Abstract  •  288 Palavras (2 Páginas)  •  269 Visualizações

Página 1 de 2

algoritmo "Calculadora"

// Autor: Anderson L. Pereira

var

numero1, numero2, resultado, opcao:real

resto:inteiro

operacao:caracter

confirmacao:caracter

procedimento leitura

inicio

limpatela

escreval

escreva (" Entre com 1º número:")

leia (numero1)

escreval

escreva (" Entre com 2º número:")

leia (numero2)

fimprocedimento

procedimento impressao

inicio

limpatela

escreval

escreval (" Resultado:",numero1," ",operacao,numero2," =",resultado)

fimprocedimento

procedimento adicao

inicio

leitura

operacao <- "+"

resultado <- numero1+numero2

impressao

fimprocedimento

procedimento subtracao

inicio

leitura

operacao <- "-"

resultado <- numero1-numero2

impressao

fimprocedimento

procedimento multiplicacao

inicio

leitura

operacao <- "x"

resultado <- numero1*numero2

impressao

fimprocedimento

procedimento divisao

inicio

leitura

enquanto (numero2 = 0) faca

limpatela

escreval

escreval (" Operação inválida.")

escreval

escreva (" Entre com 1º número:")

leia (numero1)

escreval

escreva (" Entre com 2º número:")

leia (numero2)

fimenquanto

operacao <- ":"

resultado <- numero1/numero2

impressao

fimprocedimento

procedimento restodivisao

var

numero1, numero2, resto:inteiro

inicio

limpatela

escreval

escreva (" Entre com 1º número:")

leia (numero1)

escreval

escreva (" Entre com 2º número:")

leia (numero2)

enquanto (numero2 = 0) faca

limpatela

escreval

escreval (" Operação inválida.")

escreval

escreva (" Entre com 1º número:")

leia (numero1)

escreval

escreva (" Entre com 2º número:")

leia (numero2)

fimenquanto

limpatela

escreval

resto <- numero1 MOD numero2

se resto = 0 então

escreval (" Resultado:",numero1," :",numero2," =",numero1 DIV numero2)

senao

escreval (" Resultado:",numero1," :",numero2," =",numero1 DIV numero2," | Resto:",resto)

fimse

fimprocedimento

procedimento potenciacao

inicio

limpatela

escreval

escreva (" Entre com a base:")

leia (numero1)

escreval

escreva (" Entre com o expoente:")

leia (numero2)

enquanto (numero1 = 0) e (numero2 <= 0) faca

limpatela

escreval

escreval (" Operação inválida.")

escreval

escreva (" Entre com a base:")

leia (numero1)

escreval

escreva (" Entre com o expoente:")

leia (numero2)

fimenquanto

operacao <- "elevado na"

resultado <- numero2^numero1

impressao

...

Baixar como (para membros premium)  txt (3.8 Kb)  
Continuar por mais 1 página »
Disponível apenas no TrabalhosGratuitos.com