Exercícios 1-2 da Lista 1

1. Escreva uma função chamada DOBRA que multiplica um número inteiro (recebido como parâmetro) por 2. Escreva, ainda, um programa que leia um valor inteiro e, utilizando a função DOBRA, calcule e exiba o dobro do número lido.

algoritmo "DobraFuncao"

var

   n1:inteiro

funcao dobrafun (n:inteiro):inteiro

inicio

       n <- n*2

       retorne n

fimfuncao

inicio

      leia(n1)

      n1 <- dobrafun(n1)

      escreva (n1)

fimalgoritmo

2. Reescreva a função da questão anterior na forma de um procedimento. Rescreva também o programa para que ele utilize o procedimento.

algoritmo "DobraProcedimento"

var

   n1:inteiro

procedimento dobraproc (n:inteiro)

inicio

       n1 <- n*2

fimprocedimento

inicio

      leia(n1)

      dobraproc(n1)

      escreva (n1)

fimalgoritmo