Função e Procedimento - (Visualg)

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

A pedido de um amigo resolvi criar uma pequena calculadora simples usando
estrutura de repetição,tomadas de decisões, funções e procedimentos.
Eu poderia ter usado de uma forma
mais simples porém para ajudar na dúvida dele eu resolvi fazer deste modo.
procedimento Menu()
var
 fimproc : inteiro
 operacao: caractere
inicio
 limpatela
 repita
 Escreval (" >> Operções básicas de matemática ")
 Escreval ("[1] - Soma")
 Escreval ("[2] - Subtração")
 Escreval ("[3] - Multiplicação")
 Escreval ("[4] - Divisão")
 Escreval ("[0] - SAIR")
 leia(operacao)
 limpatela
 escolha(operacao)
 caso "1"
 Escreval("SOMA ")
 CalculoSoma()
 caso "2"
 Escreval("Subtração")
 CalculoSub()
 caso "3"
 Escreval("Multiplicação")
 CalculoMult()
 caso "4"
 Escreval("Divisão")
 CalculoDiv()
 caso "0"
 fimproc <- 0
 interrompa
 outrocaso
 Menu()
 fimescolha
 ate(fimproc = 0)
 fimrepita
fimprocedimento
funcao Soma(x,y: real) : real
var
 resultado: real
inicio
 resultado <- x + y
 retorne resultado
fimfuncao
Procedimento CalculoSoma()
var
 x, y : real
inicio
 leia(x)
 leia(y)
 limpatela
 Escreval("Resultado: ",Soma(x,y))
 Escreval("Selecione qualquer tecla...")
 leia(j)
 Menu ()
fimprocedimento
funcao Subtracao(x,y: real) : real
var
 resultado: real
inicio
 resultado <- x - y
 retorne resultado
fimfuncao
Procedimento CalculoSub()
var
 x, y : real
inicio
 leia(x)
 leia(y)
 limpatela
 Escreval("Resultado: ",Subtracao(x,y))
 Escreval("Selecione qualquer tecla...")
 leia(j)
 Menu ()
fimprocedimento
funcao Multiplicacao(x,y: real) : real
var
 resultado: real
inicio
 resultado <- x * y
 retorne resultado
fimfuncao
Procedimento CalculoMult()
var
 x, y : real
inicio
 leia(x)
 leia(y)
 limpatela
 Escreval("Resultado: ",Multiplicacao(x,y))
 Escreval("Selecione qualquer tecla...")
 leia(j)
 Menu ()
fimprocedimento
funcao Divisao (x,y: real) : real
var
 resultado: real
inicio
 resultado <- x / y
 retorne resultado
fimfuncao
Procedimento CalculoDiv()
var
 x, y : real
inicio
 leia(x)
 leia(y)
 limpatela
 Escreval("Resultado: ",Divisao(x,y))
 Escreval("Selecione qualquer tecla...")
 leia(j)
 Menu ()
fimprocedimento
var
 j: caractere
inicio
 Menu ()
fimalgoritmo