График функции (delphi 7)

[Stilet]

Если у тебя есть папка Demos в поставке с Делфи то там поищи TeeChart
Если не найдеш то запусти по форуму поиск на слово "AddXY" - это добавление к графику точек

[Demav]

Да не разбираюсь я в коде(и в delphi). Мне что бы всё это понять надо учебник прочитать. Но у меня времени нет уже. Мне нужно для функции f:=0-3*cos((x-2)/pi)*sin(x-0.5)/exp((x)/5)*cos(x/4)-0.5 построить график по X -9 до 15 и функция должна быть меньше нуля. Я прошу написать этот код. Пожалуйста.

[Stilet]

Лентяй. Вот держи вариант попроще, или используй тот что тебе написали выше

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var s:TLineSeries; x:double;c:TChart;
begin
 c:=TChart.Create(form1);
 s:=TLineSeries.Create(c);
 c.Align:=alClient;
 c.Parent:=self;
 s.ParentChart:=C;
 x:=-9; while x<15 do begin
  s.AddXY(x,0-3*cos((x-2)/pi)*sin(x-0.5)/exp((x)/5)*cos(x/4)-0.5);
  x:=x+1;
 end;
end;

end.