Navigace: Hlavní stránka -> BASIC -> 02 Jednoduché výpočty s podmínkou -> 02.22 Strany a výšky pravoúhlého trojúhelníku z úseků přepony c

MENU

02.22 Strany a výšky pravoúhlého trojúhelníku z úseků přepony c

Zadání:
Sestavte program, který ze zadaných úseků přepony c trojúhelníku vypočte strany a výšku tohoto trojúhelníku.
Řešení:
Strany a výška trojúhelníku ze zadaných úseků přepony c se vypočtou pomocí následujících vzorců:

Module Module1

    Sub Main()

        Dim ca, cb, v, a, b, c As Double

        Console.Write("Zadejte usek ca: ")
        ca = Console.ReadLine
        Console.Write("Zadejte usek cb: ")
        cb = Console.ReadLine

        If (ca > 0) And (cb > 0) Then
            c = ca + cb
            v = Math.Sqrt(ca * cb)
            a = Math.Sqrt(ca * c)
            b = Math.Sqrt(cb * c)
            Console.WriteLine("Strana a= {0:0.000}", a)
            Console.WriteLine("Strana b= {0:0.000}", b)
            Console.WriteLine("Strana c= {0:0.000}", c)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module
program ke stažení