01.14 Obsah rovnoramenného pravoúhlého trojúhelníku z obvodu
Zadání:
Sestavte program, který vypočte ze zadané hodnoty obvodu O rovnoramenného pravoúhlého trojúhelníku jeho obsah S.
Sestavte program, který vypočte ze zadané hodnoty obvodu O rovnoramenného pravoúhlého trojúhelníku jeho obsah S.
Řešení:
Obsah S pravoúhlého pravoúhlého trojúhelníku lze vypočítat ze zadaného obvodu O podle vzorce:
Obsah S pravoúhlého pravoúhlého trojúhelníku lze vypočítat ze zadaného obvodu O podle vzorce:
Module Module1
Sub Main()
Dim obvod, obsah As Double
Console.Write("Zadejte obvod trojuhelniku: ")
obvod = Console.ReadLine
obsah = obvod ^ 2 / (12 + 8 * Math.Sqrt(2))
Console.WriteLine("Obsah trojuhelniku: {0:0.000}", obsah)
Console.ReadLine()
End Sub
End Module
program ke stažení