Advertisement
Guest User

Untitled

a guest
Dec 3rd, 2016
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Module Module1
  2.  
  3.     Sub Main()
  4.  
  5.         Dim a, b, c, delta, x1, x2 As Double
  6.  
  7.         Console.WriteLine("Podaj parametry a, b i c")
  8.  
  9.         a = Console.ReadLine()
  10.         b = Console.ReadLine()
  11.         c = Console.ReadLine()
  12.  
  13.         delta = b * b - 4 * a * c
  14.  
  15.         If delta > 0 Then
  16.             x1 = (-1 * b + delta ^ (1 / 2)) / 2 * a
  17.             x2 = (-1 * b - delta ^ (1 / 2)) / 2 * a
  18.             Console.WriteLine("Funkcja ma dwa miejsca zerowe: ")
  19.             Console.WriteLine(x1)
  20.             Console.WriteLine(x2)
  21.         End If
  22.  
  23.         If delta = 0 Then
  24.             x1 = (-1 * b) / (2 * a)
  25.             Console.WriteLine("Funkcja ma jedno miejsce zerowe: ")
  26.             Console.WriteLine(x1)
  27.         End If
  28.  
  29.         If delta < 0 Then
  30.             Console.WriteLine("Brak miejsc zerowych")
  31.         End If
  32.  
  33.         Console.ReadLine()
  34.  
  35.     End Sub
  36.  
  37. End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement