Equação do 1º grau com grafico
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?
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;
Carlos Leonel
Curtidas 0