VB de 2.dereceden kök bulunan pro ?

[nightashes]

Arkadaslar 2. dereceden denklemlerin köklerini bulmak için bir program yazmam gerek eger yardımcı olursanız sevinirim...

 

[nightashes]

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
Label4.Text = "x1"
Label5.Text = "x2"
Label6.Text = "x2"
Label7.Text = "x"
Label8.Text = " = 0"
Label9.Text = ""
Label10.Text = ""
Button1.Text = " BAK ! "
Button2.Text = "Temizle ! "

End Sub


Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, delta, kok1, kok2 As Double
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
delta = (b ^ 2) - (4 * a * c)
kok1 = (-b + Math.Sqrt(delta)) / (2 * a)
kok2 = (-b - Math.Sqrt(delta)) / (2 * a)
Label2.Text = val(kok1)
Label3.Text = val(kok2)


If delta = 0 Then Label1.Text = "Çakışık Kök!"
If delta < 0 Then Label1.Text = "Reel Kök Yok!"
If delta < 0 Then Label2.Text = ""
If delta < 0 Then Label3.Text = ""
If delta > 0 Then Label1.Text = "Reel Kök Var!"

If a = 0 Then Label9.Text = (" a Değeri Sıfırdan Farklı Olmalıdır!")
If a = 0 Then Label1.Text = ""
If a = 0 Then Label2.Text = ""
If a = 0 Then Label3.Text = ""
If b = 0 Then Label10.Text = (" b Değeri Sıfırdan Farklı Olmalıdır!")
If b = 0 Then Label1.Text = ""
If b = 0 Then Label2.Text = ""
If b = 0 Then Label3.Text = ""

End Sub




Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
Label4.Text = "x1"
Label5.Text = "x2"
Label6.Text = "x2"
Label7.Text = "x"
Label8.Text = " = 0"
Label9.Text = ""
Label10.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

End Class

kadar yazabildim!! hata görürseniz yada daha güselleştirirseniz sevinirim..
belki bi işe yarar.

 

[makine04]

c++ da olanı da benden olsun

#include <iostream.h>
#include <math.h>
int main()
{
float a,b,c;
double diskiriminant,x1,x2;
cout<<"Lutfen x^2 li terimin katsayisini giriniz:";
cin>>a;
cout<<"Lutfen x^1 li terimin katsayisini giriniz:";
cin>>b;
cout<<"Lutfen x^0 in katsayisini giriniz:";
cin>>c;
diskiriminant=b*b-4.0*a*c;
if(diskiriminant<0.0)
cout<<"Denklemin reel kokleri yoktur";
else if(diskiriminant==0.0)
{
x1=-b/2.0*a;
cout<<"Kokler birbirine esittir"<<"x1=x2"<<"="<<x1<<"dir";
}
else
{
x1=(-b-sqrt(diskiriminant))/2.0*a;
x2=(-b+sqrt(diskiriminant))/2.0*a;
cout<<"Denklemin birinci koku x1="<<x1<<"dir"<<endl;
cout<<"Denklemin ikinci koku x2="<<x2<<"dir"<<endl;
}
return 0;
}
BY MAKİNE04