Representação Gráfica da Equação do 2 grau

[Luiz Poeta]

Gostaria que alguém me desse uma luz de como fazer a reprentação das raízes da equação do 2 grau em um plano cartesiano...

Eis o meu Código fonte:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include <math.h>

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

float A, B, C, D;

float x1, x2;

// procedimento para limpar a tela

void LimpaTela(void)

{

Form1->Edit1->Text = ""; // limpa Caixas de Texto

Form1->Edit2->Text = "";

Form1->Edit3->Text = "";

Form1->Edit4->Text = "";

Form1->Edit5->Text = "";

A=0;B=0;C=0;D=0; // limpa valores da equação

x1=0;x2=0; // limpa resultado

}

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

A = atoi(Edit1->Text.c_str()); // entrada dos valores

B = atoi(Edit2->Text.c_str());

C = atoi(Edit3->Text.c_str());

if (A==0) {

if (B!=0) {

x1=-C/B;

ShowMessage("Equacao do 1º Grau -- Só existe uma raiz");

Edit4->Text = x1;

Form1->Edit5->Text = "";

}

else {

LimpaTela();

ShowMessage("não existe Raiz");

LimpaTela();

}

}

else {

D = pow(B,2) - 4*A*C; // calcula delta

if (D<0) {

LimpaTela();

ShowMessage("Delta < 0\nNao existe Raiz");

LimpaTela();

}

else if (D==0) {

x1=-B/2*A;

ShowMessage("Só existe uma raiz");

Edit4->Text = x1;

Form1->Edit5->Text = "";

}

else {

x1 = (-B + sqrt(D))/ 2*A;

x2 = (-B - sqrt(D))/ 2*A;

Edit4->Text = x1; // apresenta resposta

Edit5->Text = x2;

}

}

}

//-----------------------------------------------------

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Edit1->Text = ""; // limpa Caixas de Texto

Edit2->Text = "";

Edit3->Text = "";

Edit4->Text = "";

Edit5->Text = "";

A=0;B=0;C=0;D=0; // limpa valores da equação

x1=0;x2=0; // limpa resultado

}

//-----------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

ShowMessage("EQUAÇÕES DE 2º GRAU\n\n DEFINIÇÕES:\n\n\n As equações do 2º grau ou equações quadráticas são da forma\n\n Ax² + bx + c = 0, em que A, B e C são números reais e 'A' diferente de 0.\n\n 'A' é o coeficiente de x²\n 'B' é o coeficiente de 'X' e 'C' é o termo independente.\n\n Uma equação diz-se completa se 'B' e 'C' são diferentes de zero;\n Caso contrário, temos uma equação incompleta.\n\n Quando uma equação do 2º grau tem a forma ax² + bx + c = 0,temos uma equação completa\n");

}

//---------------------------------------------------------------------------