Jak narysować wykres funkcji y=x?

Utwórz TImage, ustaw wielkość i nazwę (width 300,height=300, rys) i TButton, na który kliknij dwa razy.
Wpisz poniższy kod:

procedure TForm1.Button1Click(Sender: TObject); 

var x,y,srx,sry,a,b :integer;

begin 

  srx :=150; 

  sry:= 150; 

  //rysowanie układu 

  Rys.Canvas.MoveTo(150,0); 

  Rys.Canvas.LineTo(150,300); 

  Rys.Canvas.MoveTo(0,150); 

  Rys.Canvas.LineTo(300,150); 


  //rysowanie lini 

  for x:=-150 to 150 do begin 

    a:=1; 

    b:=0; 

    y:=srx-(a*x+b); 

    Rys.Canvas.MoveTo(x+srx,y); 

    y:=srx-(a*(x+1)+b); 

    Rys.Canvas.LineTo(x+srx,y); 

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var x,y,srx,sry,a,b :integer;

begin

srx :=150;

sry:= 150;

//rysowanie układu

Rys.Canvas.MoveTo(150,0);

Rys.Canvas.LineTo(150,300);

Rys.Canvas.MoveTo(0,150);

Rys.Canvas.LineTo(300,150);

//rysowanie lini

for x:=-150 to 150 do begin

a:=1;

b:=0;

y:=srx-(a*x+b);

Rys.Canvas.MoveTo(x+srx,y);

y:=srx-(a*(x+1)+b);

Rys.Canvas.LineTo(x+srx,y);

end;

Autor: Spider100