Exercicios sobre Variaveis Compostas Homgeneas Bidimensionais.

Pessoal como falei em sala de aula, estou postando aqui a solução dos exercícios.
Começo com a serie de FIBONACCI 

algoritmo "Fibonacci"
// Função :
// Autor :
// Data : 20/01/2012
// Seção de Declarações
var  n:inteiro
funcao Fibonacci(i:inteiro):inteiro
inicio
     se i=0 entao
        retorne 0
     senao
       se i=1 entao
          retorne 1
       senao
          retorne Fibonacci(i-2)+Fibonacci(i-1)
       fimse
     fimse
fimfuncao

inicio
para n de 0 ate 21 faca
  escreva(Fibonacci(n))
fimpara
fimalgoritmo

Este é o calculo do fatorial de um numero.
O fatorial é usado em cálculos probabilísticos e em series.



algoritmo "FATORIAL"
var  n:inteiro

funcao Fatorial(i:inteiro):inteiro
inicio
se i=0 entao
   retorne 1
senao
   se i=1 entao
      retorne 1
   senao
      retorne i*Fatorial(i-1)
   fimse
fimse
fimfuncao
inicio
limpatela
escreva("Digite um numero menor que 20 para calcular o n!")
leia (n)
escreva("O Fatorial de ",n," é igual a ",Fatorial(n))
fimalgoritmo

Passagem de parâmetro por referência.

 algoritmo "Passagem de parametros por referencia"
// Função : Mostrar procedimentos com passagem de parametro
// Autor :  Jorgefox
// Data : 20/01/2012
// Seção de Declarações

procedimento Divide(Dividendo,Divisor:real;var dv,rs:real)
inicio
dv<-int(Dividendo/Divisor)
rs<-Dividendo-dv*Divisor
fimprocedimento

var a,b,x,y,v,w:real

inicio
a<-6
b<-3
Divide(a,b,x,y)
escreval(" Valor de x=",x," Valor de y=",y)
Divide(a*b-1,b+1,v,w)
escreval(" Valor de V=",v," Valor de W=",w)
fimalgoritmo

Forte abraço a todos.