Click here to Skip to main content
15,507,266 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
the problem should display the first 10 numbers of a fibonacci

What I have tried:

Pascal
unit Numbers;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

//program Project2;


{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  I: Integer;

function Fibonacci(aNumber: Integer): Integer;
begin
  {Your implementation goes here}
end;

begin
  for I:=0 to 10 do
    Writeln(Fibonacci(I));
  Readln;
end.
Posted
Updated 14-Oct-20 21:35pm
v2

1 solution

Let me see if there is a place where... Fibonacci sequence - Rosetta Code[^].
 
Share this answer
 

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900