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 Bir Stringi Ters Çevirmek

Visual Basic Dosya Taşıma

Visual Basic Dosyanın İçeriğini Byte Dizisi Olarak Okuma

Visual Basic Dosyanın Uzantısını Bulma

Visual Basic String Contains Kullanımı