Navigace: Hlavní stránka -> BASIC -> 01 Jednoduché výpočty -> 01.15 Obsah šestiúhelníku vepsaného do kružnice

MENU

01.15 Obsah šestiúhelníku vepsaného do kružnice

Zadání:
Sestavte program, který vypočte ze zadané hodnoty poloměru r obsah pravidelného šestiúhelníku, vepsaného do této kružnice.
Řešení:
Obsah S pravidelného šestiúhelníku vepsaného do kružnice o známém poloměru r lze vypočítat podle vzorce:

Module Module1

    Sub Main()

        Dim polomer, obsah As Double

        Console.Write("Zadejte polomer kruznice: ")
        polomer = Console.ReadLine

        obsah = 3 / 2 * Math.Sqrt(3) * polomer ^ 2

        Console.WriteLine("Obsah sestiuhelniku: {0:0.000}", obsah)

        Console.ReadLine()

    End Sub

End Module
program ke stažení