Построение графика ряда Фибоначчи

[mike_sore]

Приветствую всех. Есть ряд Фибоначчи, и надо построить график его чисел. Так же нужен график соотношения числа с его предыдущим (х(и-тое) разделить на х(и-тое минус 1)). Кто-нибудь знает как это сделать?

[phomm]

Графики в дельфи - гугл/поиск по форуму знает ответ.
Но если вдруг Вы и в там затрудняетесь найти, то подскажу - используйте компонент TChart
Там же, в гугле, можно найти принципы построения графика на чарте, вкратце всё сводится к вызову функции AddXY у "серии", а уж подавать этой функции нужные данные - Ваша задача, считайте в цикле значения чисел Фибоначчи и прочие и выводите на чарт.

[Stilet]

Кто-нибудь знает как это сделать?

Я знаю. Например так (реализация совета phomm-а):

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
  Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    Chart1: TChart;
    Chart1LineSeries1: TLineSeries;
    Chart1LineSeries2: TLineSeries;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var n:integer;z,k:integer;
begin
 n:=200;
z:=1;k:=0;
while z<=n do begin
 z:=z+k;     //Расчет фибоначчи
 k:=z-k;
 Chart1LineSeries1.AddY(z);    //График ряда
 Chart1LineSeries2.AddY(k/z);  //График разницы элементов
end;

end;

end.

Только не вздумай копипастить. Разберись и вдумайся в пример.

[mike_sore]

Сообщение от Stilet

Я знаю. Например так (реализация совета phomm-а):

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
  Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    Chart1: TChart;
    Chart1LineSeries1: TLineSeries;
    Chart1LineSeries2: TLineSeries;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var n:integer;z,k:integer;
begin
 n:=200;
z:=1;k:=0;
while z<=n do begin
 z:=z+k;     //Расчет фибоначчи
 k:=z-k;
 Chart1LineSeries1.AddY(z);    //График ряда
 Chart1LineSeries2.AddY(k/z);  //График разницы элементов
end;

end;

end.

Только не вздумай копипастить. Разберись и вдумайся в пример.

спасибо за ответ. вот я вчера накидал код и у меня строит график ряда Фибоначчи, а вот соотношение почему-то нет.

function Fibonacci(aNumber: Integer): Integer;
begin
  if aNumber = 0 then Result:=0;
  if aNumber = 1 then Result:=1;
  if aNumber > 1 then
    Result:= Fibonacci(aNumber - 1) + Fibonacci(aNumber - 2);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin

  for j:=0 to 13 do
    Series1.AddXY(j,Fibonacci(j));



    end;




procedure TForm1.Button4Click(Sender: TObject);
var tmp: Integer;
begin
for j:=2 to 9 do

tmp:=Fibonacci(j);
Series2.AddXY(tmp,(tmp/Fibonacci(j-1)));


end;

end.