Navigace: Hlavní stránka -> BASIC -> 07 Podprogramy -> 07.02 Funkce - libovolná mocnina

MENU

07.02 Funkce - libovolná mocnina

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í