sábado, 27 de setembro de 2014

Algoritmo para escrever a série de Fibonacci = (0,1,1,2,3,5,8,13,21,34,?) enquanto o termo a ser impresso for menor que 5000.





//Faça algoritmo para escrever a série de Fibonacci = (0,1,1,2,3,5,8,13,21,34,?) enquanto o termo

//a ser impresso for menor que 5000.

Program fibonacci ;

Var n1,n2,n3: integer;

Begin

n1 := 0;

n2 := n1+1;

n3 := n1+n2;

while (n1 < 5000) do

begin

writeln (n1);

writeln (n2);

begin

if (n3 < 5000) then

writeln (n3);

end;

n1 := n3+n2;

n2 := n1+n3;

n3 := n2+n1;

end;

readln;

End.

Nenhum comentário:

Postar um comentário

Pascal - Lazarus