Zadání:
Sestavte program, který vypočte z hodnoty x hodnoty y₁-y₆ podle vzorců:

Module Module1

    Sub Main()

        Dim x, y1, y2, y3, y4, y5, y6 As Double

        Console.Write("Zadejte hodnotu x: ")
        x = Console.ReadLine

        y1 = (2 * x + 3) / (x - 2)
        y2 = (x - 2) / (2 * x + 1)
        y3 = (x ^ 2 - 9) / (x + 3)
        y4 = x / (x - 7)
        y5 = (4 * x ^ 2 - 3 * x) / 5
        y6 = (x ^ 2 - 5) / (x + 3) - (x - 5) ^ 2 / (2 * x - 3) ^ 3

        Console.WriteLine("y1 = {0:0.000}", y1)
        Console.WriteLine("y2 = {0:0.000}", y2)
        Console.WriteLine("y3 = {0:0.000}", y3)
        Console.WriteLine("y4 = {0:0.000}", y4)
        Console.WriteLine("y5 = {0:0.000}", y5)
        Console.WriteLine("y6 = {0:0.000}", y6)

        Console.ReadLine()

    End Sub

End Module