Fibonacci (Pascal)

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

[ Hits: 4.917 ]

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

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

Calculadora de décimo terceiro salário em Pascal

exemplo de vetores

somatório de uma matriz 7x5

Números perfeitos


  

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