01.17 Délka tečny kružnice vedené z bodu
Zadání:
Sestavte program, který vypočte ze zadané hodnoty poloměru r kružnice a vzdálenosti v bodu od středu kružnice délku tečny, vedené z tohoto bodu ke kružnici.
Sestavte program, který vypočte ze zadané hodnoty poloměru r kružnice a vzdálenosti v bodu od středu kružnice délku tečny, vedené z tohoto bodu ke kružnici.
Řešení:
Řešení využívá Pythagorovu větu.
Řešení využívá Pythagorovu větu.
Module Module1
Sub Main()
Dim polomer, vzdalenost, tecna As Double
Console.Write("Zadejte polomer kruznice: ")
polomer = Console.ReadLine
Console.Write("Zadejte vzdalenost stredu kruznice od bodu: ")
vzdalenost = Console.ReadLine
tecna = Math.Sqrt(vzdalenost ^ 2 - polomer ^ 2)
Console.WriteLine("Delka tecny: {0:0.000}", tecna)
Console.ReadLine()
End Sub
End Module
program ke stažení