Module Module1
Sub Main()
Console.WriteLine("ax^2+bx+c=0")
Dim a, b, c, x1, x2 As Decimal
Console.Write("enter parametre(a)?")
a = Console.ReadLine()
Console.Write("enter parametre(b)?")
b = Console.ReadLine()
Console.Write("enter parametre(c)?")
c = Console.ReadLine()
x1 = (-b + (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
x2 = (-b - (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
Console.WriteLine("x1=" & x1 & " x2= " & x2)
Console.ReadLine()
End Sub
End Module
ليست هناك تعليقات:
إرسال تعليق