Zadání:
Sestavte funkce pro výpočet libovolné odmocniny.
Řešení:
Funkce bude mít reálný vstup i výstup. Odmocninu vypočteme pomocí funkce Log a Exp.
Module Module1
Function odmocnina(ByVal x As Double, ByVal y As Double) As Double
odmocnina = Math.Exp(Math.Log(x) / y)
Return odmocnina
End Function
Sub Main()
Dim a, b, c As Double
Console.Write("Zadejte zaklad odmocniny: ")
a = Console.ReadLine
Console.Write("Zadejte odmocninu: ")
b = Console.ReadLine
c = odmocnina(a, b)
Console.WriteLine("{0:0.000}^(1/{1:0.000})={2:0.000}", a, b, c)
Console.ReadLine()
End Sub
End Module
program ke stažení