Fibonacci (Pascal)

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

[ Hits: 4.996 ]

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

Extenso em dll, com parâmetros adicionais

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus

dizer se o aluno passou ou nao

Executar comando do DOS.

Função Fatorial Recursiva em Ada 95


  

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