Navigace: Hlavní stránka -> BASIC -> 01 Jednoduché výpočty -> 01.22 Strana rovnostranného trojúhelníku ze zadané výšky

MENU

01.22 Strana rovnostranného trojúhelníku ze zadané výšky

Zadání:
Sestavte program, který vypočte ze zadané výšky rovnostranného trojúhelníku délku jeho strany.
Řešení:
Strana a rovnostranného trojúhelníku se vypočte ze zadané výšky v podle vzorce:


Module Module1

    Sub Main()

        Dim a, vyska As Double

        Console.Write("Zadejte vysku rovnostranneho trojuhelniku: ")
        vyska = Console.ReadLine

        a = 2 / Math.Sqrt(3) * vyska

        Console.WriteLine("Strana a={0:0.000}", a)

        Console.ReadLine()

    End Sub

End Module
program ke stažení