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;
}
}
__________________
بِسْــــــــــــــــــــــمِ اﷲِارَّحْمَنِ ارَّحِيم
-------------------------------------------------
Bu Soysuzlar Bu Vatansızlar Sarsada Yurdumu Ben Yaratan'dan Alırım Asil Kanı ve Gücü. -------------------------------------------------
|