Fibonacci (Pascal)

Publicado por Perfil removido (última atualização em 27/10/2009)

[ Hits: 5.090 ]

Download Fibonacci (Pascal).txt




Algoritmo Fibonacci na linguagem Pascal.

  



Esconder código-fonte

program Fibonacci;

uses crt;

var intA,intB,intProx,intCont:integer;

begin

clrscr;

intA:=0;
intB:=1;
for intCont:=1 to 15 do

begin
intProx:=intA+intB;
Writeln(intProx);
intA:=intB;
intB:=intProx;

end;

readln;

end.

Scripts recomendados

Calculadora de décimo terceiro salário(Lazarus)

script para ler um vetor e mostrar o conteúdo

encontrar o menor valor em um vetor

Calculadora de décimo terceiro no Lazarus

Mcd de una serie de numeros


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts