Modulação

Lista de Exercícios 5 - Modularização:
1- Criar um algoritmo que receba notas de três provas e passe para uma função calcular a sua média. ALGORITMO "EX1"
VAR
P1, P2, P3 : REAL
FUNCAO MEDIA (NT1, NT2, NT3 : REAL) : REAL
VAR
MD : REAL
INICIO
MD := (NT1 + NT2 + NT3)/3
RETORNE MD
FIMFUNCAO
INICIO
ESCREVAL ("DIGITE AS NOTAS DA 1ª, 2ª E 3ª PROVA:")
LEIA (P1, P2, P3)
ESCREVAL ("MÉDIA: ", MEDIA (P1, P2, P3))
FIMALGORITMO
2- Criar um algoritmo que receba dois números distintos e passe para um procedimento exibir o maior deles.
ALGORITMO "EX2"
VAR
N1, N2 : REAL
PROCEDIMENTO MAIOR (NUM1, NUM2 : REAL)
INICIO
SE NUM1 > NUM2 ENTAO
ESCREVAL ("MAIOR NÚMERO: ", NUM1)
SENAO
ESCREVAL ("MAIOR NÚMERO: ", NUM2)
FIMSE
FIMPROCEDIMENTO
INICIO
ESCREVAL ("DIGITE 1º NÚMERO: ")
LEIA (N1)
ESCREVAL ("DIGITE 2º NÚMERO: ")
LEIA (N2)
MAIOR (N1, N2)
FIMALGORITMO

3- Criar um algoritmo que receba um número que corresponda a um mês do 1º trimestre e passe para um procedimento imprimir o mês equivalente.
ALGORITMO "EX3"
VAR
NUM : INTEIRO
PROCEDIMENTO MES (N : INTEIRO)
INICIO
SE N = 1 ENTAO
ESCREVAL ("JANEIRO")
SENAO
SE N = 2 ENTAO
ESCREVAL ("FEVEREIRO ")
SENAO
SE N = 3 ENTAO
ESCREVAL ("MARÇO")
FIMSE
FIMSE
FIMSE
FIMPROCEDIMENTO
INICIO
ESCREVAL ("DIGITE O NÚMERO: ")
LEIA (NUM)
MES (NUM)
FIMALGORITMO
4- Criar um algoritmo que possa entrar com 100 números e para cada um utilizar uma função para calcular o seu dobro.
ALGORITMO "EX4"
VAR
X : INTEIRO
NUM : REAL
FUNCAO DOBRO (N : REAL) : REAL
VAR
RESP : REAL
INICIO
RESP := N * 2
RETORNE RESP
FIMFUNCAO
INICIO
PARA X DE 1 ATE 100 FACA
ESCREVAL ("DIGITE O NÚMERO: ")
LEIA (NUM)
ESCREVAL ("DOBRO DO NÚMERO ", NUM, " É ", DOBRO (NUM))
FIMPARA
FIMALGORITMO

5- Criar um algoritmo que leia o dividendo e o divisor, ambos inteiros, e passe para uma função verificar quantas vezes um número é divisível por outro. Para que a função seja executada o dividendo tem que ser maior ou igual ao