Programlama ve Elektronik - C# ile İkinci Derece Denklemin Köklerini Bulma

c# ile ikinci derece denklemin köklerini bulan program
--------------------------------------------------------------------------------
ikinci derece denklemin
Sanal kokleri bulan ve j li gosteren c# programı

Kodlar:

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "kok_sannal_cift_bulma.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

double x1x2dsonucklmn;
int abc ;

a = Edit1->Text.ToDouble();
b = Edit2->Text.ToDouble();
c = Edit3->Text.ToDouble();
d=b*b-4*a*c;
if(d>0)
{
x1=(-b+sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
Edit4->Text= x1;
Edit5->Text= x2;
Edit6->Text="kokler farklidir";
}

else if(d==0)
{
x1=(-b+sqrt(d))/(2*a);
x2=x1;
Edit4->Text= x1;
Edit5->Text= x2;
Edit6->Text="kokler cifttir";
}
else
{
k=(-b/(2*a));
l=-sqrt(-d)/(2*a);
m=(-b/(2*a));
n=sqrt(-d)/(2*a);
AnsiString ji = "(+j*)";
Edit1->Text=k;
Edit2->Text=ji;
Edit3->Text=l;
Edit4->Text=Edit1->Text + Edit2->Text+ Edit3->Text;
Edit1->Text=m;
Edit2->Text=ji;
Edit3->Text=n;
Edit5->Text=Edit1->Text + Edit2->Text+ Edit3->Text;

Edit6->Text="kokler sanaldir";
Edit1->Text=a;
Edit2->Text=b;
Edit3->Text=c;
}

}