Navigace: Hlavní stránka -> BASIC -> 02 Jednoduché výpočty s podmínkou -> 02.15 Délka tětivy z poloměru kružnice a vzdálenosti tětivy od středu

MENU

02.15 Délka tětivy z poloměru kružnice a vzdálenosti tětivy od středu

Zadání:
Sestavte program, který vypočte ze zadaného poloměru kružnice a vzdálenosti tětivy od středu délku této tětivy.
Řešení:
Řešení využívá Pythagorovu větu.
S = střed
r = poloměr
v = vzdálenost tětivy od středu
d = délka tětivy
Vzdálenost musí být menší než poloměr, jinak by se nejednalo o tětivu.



Module Module1

    Sub Main()

        Dim polomer, vzdalenost, tetiva As Double

        Console.Write("Zadejte polomer kruznice: ")
        polomer = Console.ReadLine
        Console.Write("Zadejte vzdalenost tetivy od stredu: ")
        vzdalenost = Console.ReadLine

        If polomer > 0 And vzdalenost > 0 And polomer >= vzdalenost Then
            tetiva = 2 * Math.Sqrt(polomer ^ 2 - vzdalenost ^ 2)
            Console.WriteLine("Velikost tetivy: {0:0.000}", tetiva)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module
program ke stažení