grafik u delphiju

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure Translate(var x, y: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  A = 1;
  B = 1;
  C = 0;
  START_X = -10;
  END_X = 10;
var
  i, x, y: Integer;

  function Funct(x: Integer): Integer;
  begin
    Result := A * x * x + B * x + c
  end;

begin
  x := START_X; y := Funct(x);
  Translate(x, y);
  Canvas.MoveTo(x, y);
  for i := START_X + 1 to END_X do begin
    x := i;
    y := Funct(x);
    Translate(x, y);
    Canvas.LineTo(x, y)
  end
end;

procedure TForm1.Translate(var x, y: Integer);
begin
  Inc(x, ClientWidth div 2);
  y := ClientHeight div 2 - y
end;

end.