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

Module Module1

    Sub Main()

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

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

     y1 = (3 + z ^ 2) / (2 + x ^ 4) - z
     y2 = Math.Abs(x - z) / (x - 3)
     y3 = (2 * x + 5) / 3 - 13 * z + 5 * (x + z ^ 2)
     y4 = Math.Abs(2 * x * z - 3) / (x ^ 2 - z) + 3 * x * z
     y5 = Math.Abs(x - z) / (Math.Abs(x) - 3)
     y6 = (0.2 * x + z) / (2 * x ^ 2 - Math.Abs(2 * x - 5 * z))
     y7 = Math.Sqrt(x ^ 2 + z ^ 2) - 1 / (x * z) * (Math.Sqrt(x ^ 2 + z ^ 2) - (x + z) / 2)

     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.WriteLine("y7 = {0:0.000}", y7)

     Console.ReadLine()

    End Sub

End Module