01.25 Úhel v radiánech na stupně
Zadání:
Sestavte program, který ze zadaného úhlu v radiánech vypočte hodnotu úhlu ve stupních, minutách a sekundách.
Sestavte program, který ze zadaného úhlu v radiánech vypočte hodnotu úhlu ve stupních, minutách a sekundách.
Řešení:
Řešení má následující kroky:
1. Přepočítat radiány r na stupně r1 (výsledkem je reálné číslo).
2. Jelikož z proměnné r1 je jeho celá část rovna stupňům, uložíme do proměnné s celou část proměnné r1.
3. Minuty vypočteme vynásobením desetinné části proměnné r1 hodnotou 60 (desetinnou část vypočteme jako
rozdíl proměnné r1 a proměnné s.
4. Body 2. a 3. opakujeme pro výpočet minut a sekund.
Řešení má následující kroky:
1. Přepočítat radiány r na stupně r1 (výsledkem je reálné číslo).
2. Jelikož z proměnné r1 je jeho celá část rovna stupňům, uložíme do proměnné s celou část proměnné r1.
3. Minuty vypočteme vynásobením desetinné části proměnné r1 hodnotou 60 (desetinnou část vypočteme jako
rozdíl proměnné r1 a proměnné s.
4. Body 2. a 3. opakujeme pro výpočet minut a sekund.
Module Module1
Sub Main()
Const PI As Double = 3.141592653589
Dim r, r1, m1, v As Double
Dim s, m As Integer
Console.Write("Zadejte uhel v radianech: ")
r = Console.ReadLine
r1 = 180 * r / pi
s = Math.Floor(r1)
m1 = (r1 - s) * 60
m = Math.Floor(m1)
v = (m1 - m) * 60
Console.WriteLine("s = {0:0.000}", s)
Console.WriteLine("m = {0:0.000}", m)
Console.WriteLine("v = {0:0.000}", v)
Console.ReadLine()
End Sub
End Module
program ke stažení
Pro učitele:
Počet sekund v proměnné v lze ještě na závěr funkcí round zaokrouhlit na celé číslo příkazem:
Počet sekund v proměnné v lze ještě na závěr funkcí round zaokrouhlit na celé číslo příkazem:
v=Math.Round(v)