[COD] Código para Números Áureos (Sequência Fibonacci)

Sequência de Fibonacci

Introdução
Semana passada na escola estavamos aprendendo a Sequência Fibonacci (algo bem fácil),então me surgiu alguns trabalhos no qual precisavam criar alguns Números Aúreos aleatórios,no entanto eu com preguiça de fazer cáculo resolvi pegar um programa que fizesse isto na internet.

Após muito pesquisar me dou de cara com um algoritmo totalmente inviável e que demora horas para achar 100 números de ouro.

Pensando nisto criei um algoritmo a base dos estudos da escola,funcionando da seguinte forma.

0 1
(1 + 0) = 1
(1 + 1) = 2
(2 + 1) = 3
(3 + 2) = 5

Bem simples,ao contrário da outra forma que chamava 94191919x uma função até achar o número Fibonacci

Segue aqui a versão antiga -> Número de Fibonacci

Observe que este algoritmo demorá muito para achar um simples número.
Então olhem este método que 'faço', no qual demorá questão de segundos/milesegundos para imprimir alguns números de ouro..

Códigos

Fiz em Pawn e PHP,talvez tento fazer em delphi.

Pawn:

stock GenerateFibonacciNumber(iMaxVal)
{
new iFibonacci[4];
iFibonacci[1] = 1;

print("VALUE: 0"),print("VALUE: 1");
for(new i; i < iMaxVal; i++)
{
iFibonacci[3] = iFibonacci[1];
iFibonacci[1] = (iFibonacci[1] + iFibonacci[0]);
iFibonacci[0] = iFibonacci[3];
printf("VALUE: %d ",iFibonacci[1]);
}
return true;
}

PHP:

function GenerateFibonacciNumber($iMaxVal = 10)
{
$iFibonacci[4];
$iFibonacci[1] = 1;

echo("VALUE: 0
");
echo("VALUE: 1
");
for($i; $i < $iMaxVal; $i++)
{
$iFibonacci[3] = $iFibonacci[1];
$iFibonacci[1] = ($iFibonacci[1] + $iFibonacci[0]);
$iFibonacci[0] = $iFibonacci[3];

echo("VALUE: ".$iFibonacci[1]."
");
}
return true;
}

Créditos
[iPs]DraKiNs
[iPs]TeaM
Professora de Matemática ._.