Evo ti nesto za pocetak. Dalje ces, valjda, moci sam
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.