Module Module1
Sub Main()
Console.WriteLine("ax^2+bx+c=0")
Dim a,
b, c, d, 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()
d = b ^ 2 - 4 * a * c
x1 = (-b + d ^ 0.5) / 2 * a
x2 = (-b - d ^ 0.5) / 2 * a
Console.WriteLine(" x1= " & x1 & " x2= " & x2)
Console.ReadLine()
End Sub
End Module
ليست هناك تعليقات:
إرسال تعليق