Fibonacci (Pascal)

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

[ Hits: 4.698 ]

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

Tratar campos not null

Calculo de la Moda

Registro

calculo de vendas

Calculadora de décimo terceiro salário em Pascal


  

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