Calculadora

algoritmo "Calculadora"
var
   opc : real
   a, b, x, y, z : real

inicio
   a <- 10
   b <- 7
   x <- 5
   y <- 2
   z <- 3

   leia (opc)
   escolha (opc)
   caso 1
      escreval ("digitou 1")
      escreval (opc * a)
      interrompa
   caso 2
      escreval ("digitou 2")
      escreval (opc + a)
      interrompa
   caso 3
      escreval ("digitou 3")
      escreval (opc - a)
      interrompa
   caso 4
      escreval ("digitou 4")
      escreval (opc / a)
      interrompa
   caso 5
      escreval ("digitou 5")
      escreval (opc * b)
      interrompa
   caso 6
      escreval ("digitou 6")
      escreval (opc + b)
      interrompa
   caso 7
      escreval ("digitou 7")
      escreval (opc - b)
      interrompa
   caso 8
      escreval ("digitou 8")
      escreval (opc / b)
      interrompa
   caso 9
      escreval ("digitou 9")
      escreval (opc * x)
      interrompa
   caso 10
      escreval ("digitou 10")
      escreval (opc + x)
      interrompa
   caso 11
      escreval ("digitou 11")
      escreval (opc - x)
      interrompa
   caso 12
      escreval ("digitou 12")
      escreval (opc / x)
      interrompa
   caso 13
      escreval ("digitou 13")
      escreval (opc * y)
      interrompa
   caso 14
      escreval ("digotou 14")
      escreval (opc + y)
      interrompa
   caso 15
      escreval ("digitou 15")
      escreval (opc - y)
      interrompa
   caso 16
      escreval ("digitou 16")
      escreval (opc / y)
      interrompa
   caso 17
      escreval ("digitou 17")
      escreval (opc * z)
      interrompa
   caso 18
      escreval ("digitou 18")
      escreval (opc + z)
      interrompa
   caso 19
      escreval ("digitou 19")
      escreval (opc - z)
      interrompa
   caso 20
      escreval ("digitou 20")
      escreval (opc / z)
      interrompa

   outrocaso
      escreva ("VOSE E BURO")
   fimescolha


fimalgoritmo