Equação do 1º grau com grafico

29/02/2016

1

Não sei se alguém já deve ter postado mas nunca perguntar. Estou fazendo um programa teste de resolução de equações 1º e 2º grau. Em outros foruns já vi que a um componente Tchart. Não sei como usá-lo. Experimentei este código com ele mas ele mostra apenas os eixos x e y positivos.
O que eu quer é assim que a pessoa colocar os valores e o cálculo mostrar o resultado de x e y o gráfico mostra os pontos no plano cartesiano e a reta que passa sobre eles.
É possível?

procedure TForm1.Button1Click(Sender: TObject);
var x, y: array[1..10] of real;
i: integer;
begin
    chart1.Series[0].Clear;
    x[1]:= 0;
    for i:= 1 to 10 do
      x[i]:= x[i-1]+1;
    for i:=0 to 10 do
   begin
      y[i] := x[i]*x[i] + 2*x[i] -3;
      Chart1.Series[0].AddXY(x[i],y[i],'',clBlue);
   end;


end;
Responder