01.24 Úhel ve stupních na radiány
Zadání:
Sestavte program, který z hodnoty úhlu ve stupních, minutách a sekundách vypočte hodnotu úhlu v radiánech.
Sestavte program, který z hodnoty úhlu ve stupních, minutách a sekundách vypočte hodnotu úhlu v radiánech.
Řešení:
Úhel zadaný ve stupních, minutách a sekundách je nejprve nutno přepočítat na stupně, poté stupně převést na radiány.
Úhel zadaný ve stupních, minutách a sekundách je nejprve nutno přepočítat na stupně, poté stupně převést na radiány.
Module Module1
Sub Main()
Const PI As Double = 3.141592653589
Dim r As Double
Dim s, m, v As Integer
Console.Write("Zadejte pocet stupnu: ")
s = Console.ReadLine
Console.Write("Zadejte pocet minut: ")
m = Console.ReadLine
Console.Write("Zadejte pocet sekund: ")
v = Console.ReadLine
r = s + m / 60 + v / 3600
r = r * PI / 180
Console.WriteLine("Velikost uhlu v radianech= {0:0.000}", r)
Console.ReadLine()
End Sub
End Module
program ke stažení
Pro učitele:
V programu je použita pro výpočet stupňů i pro přepočet na radiány stejná proměnná r. Ušetří se tím místo v paměti, pro přehlednost by bylo vhodnější použít další proměnnou, např. takto:
V programu je použita pro výpočet stupňů i pro přepočet na radiány stejná proměnná r. Ušetří se tím místo v paměti, pro přehlednost by bylo vhodnější použít další proměnnou, např. takto:
stupne=s+m/60+v/3600
r=stupne*pi/180
Proměnnou stupne je nutné v deklarační části definovat jako reálný typ.