algoritmo "Soma"

// Função :

// Autor :

// Data : 25/8/2011

// Seção de Declarações

var

n1:inteiro

n2:inteiro

o:inteiro

r:real

inicio

escreval (" Escreva um número. ")

leia(n1)

escreval (" Escreva outro número. ")

leia(n2)

escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")

escreval (" Entre com o número da opção abaixo ")

escreval (" 1- soma ")

escreval (" 2- subitração")

escreval (" 3- multiplicação ")

escreval (" 4- divisão ")

escreval ("-.-.-.-.-.-")

leia(o)

escolha o

caso 1

r<-n1+n2

caso 2

r<-n1-n2

caso 3

r<-n1*n2

caso 4

r<-n1/n2

outrocaso

escreval (" Opção inválida! ")

r<-o

fimescolha

escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")

escreval (" O resultado é ",r)

// Seção de Comandos

fimalgoritmo

0