Visual Basic İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

"Visual Basic" Programlama dilinde "İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

Imports System

Module MainModule
    Public Sub Main()

        Console.WriteLine("İlk katsayıyı girin: ")
        Dim a As Double = Convert.ToDouble(Console.ReadLine())
        Console.WriteLine("İkinci katsayıyı girin: ")
        Dim b As Double = Convert.ToDouble(Console.ReadLine())
        Console.WriteLine("Üçüncü katsayıyı girin: ")
        Dim c As Double = Convert.ToDouble(Console.ReadLine())

        If a <> 0.0 Then
            Dim d As Double = (b * b) - (4 * a * c)
            If d = 0.0 Then
                Console.WriteLine("Kökler reel ve eşittir.")
                Dim r As Double = -b / (2 * a)
                Console.WriteLine("Kökler " & r & " ve " & r)
            ElseIf d > 0.0 Then
                Console.WriteLine("Kökler reel ve farklıdır.")
                Dim r1 As Double = (-b + (Math.Sqrt(d))) / (2 * a)
                Dim r2 As Double = (-b - (Math.Sqrt(d))) / (2 * a)
                Console.WriteLine("Kök1: " & r1)
                Console.WriteLine("Kök2: " & r2)
            Else
                Console.WriteLine("Kökler sanal sayılardır.")
                Dim rp As Double = -b / (2 * a)
                Dim ip As Double = Math.Sqrt(-d) / (2 * a)
                Console.WriteLine("Kök1: " & rp & "+ i" & ip)
                Console.WriteLine("Kök2: " & rp & "- i" & ip)
            End If
        Else
            Console.WriteLine("Kareköklü ifade değildir.")
        End If
    End Sub
End Module



İlginizi Çekebilir

Visual Basic Dosyanın Adını Değiştirme

Visual Basic Dosyanın Güncelleme Tarihini Değiştirme

Visual Basic Bir Sayının Rakamlarının Toplamını Bulma Örneği

Visual Basic Dosya Oluşturma

Visual Basic Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol E ...