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"); } //---------------------------------------------------------------------------