[dr-nad.Nadbitov]

залил эту работу
http://letitbit.net/download/58555.5...Chart.rar.html

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    RadioGroup1: TRadioGroup;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   a,b: integer;
implementation

{$R *.dfm}
//????????? ???????? ???? Image
procedure ImageClear(Image:TImage);
var i,j:integer;
begin
  for i:=1 to Image.Width do
  for j:=1 to Image.Height do
  Image.Canvas.Pixels[i,j]:=$ffffff;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var x,y: real; PX,PY: longint;
begin
     ImageClear(Image1);
     a:=Image1.Width;
     b:=Image1.Height;
     Image1.Canvas.Pen.Color:=clBlack;
     Image1.Canvas.MoveTo(0,b div 2);
     Image1.Canvas.LineTo(a,b div 2);
     Image1.Canvas.MoveTo(a div 2,0);
     Image1.Canvas.LineTo(a div 2,b);
     Image1.Canvas.MoveTo(0,b div 2);
     for PX:=0 to a do
     begin
          x:=PX*pi/a;
          case RadioGroup1.ItemIndex of
               0: y:=exp(x*ln(2));
               1: y:=cos(x);
          end;

          PY:=trunc(b-(y+1)*b/2);
          Image1.Canvas.LineTo(PX,PY);
     end;
     for PX:=0 to a do
     begin
          x:=PX*4*pi/a;
          case RadioGroup1.ItemIndex of
               2: y:=sin(x)/cos(x);
          end;
          PY:=trunc(b-(y+1)*b/2);
          Image1.Canvas.Pixels[PX,PY]:=0;
     end;

end;

end.

Admin: Пользуемся тегами!

[Rat]

Советую код в теги оформить, пока модератор не добрался... а то так читать даже лень.
З.Ы. Не успел.