Fibonacci (Pascal)

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

[ Hits: 4.884 ]

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

mostrar a meior e a menor temperatura do ano com vetor

armazenar o nome de um aluno e suas notas

Gerador de Senha no Lazarus

Calculadora de décimo terceiro salário em Pascal

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