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