Определение значение угла для минутной стрелки, и количество часов и полных минут

@fenix22rus · Регистрация: 17.11.2011

Author24 — интернет-сервис помощи студентам

Определение значение угла для минутной стрелки, и количество часов и полных минут

@~~Апострофф~~ · 21.11.2011, 08:59

Visual Basic

Sub main()
Const P2# = 6.28318530717959 'Два Пи = 3.1415926535897932384626433832795 * 2
Dim F#, Fm#, H As Byte, M As Byte, T# 'As Date
F = Val(Replace(InputBox("Введите угол часовой стрелки в радианах"), ",", "."))
'F = Val(Replace(InputBox("Введите угол часовой стрелки в градусах"), ",", ".")) * P2 / 360
T = F / P2 / 2 'доля суток после полуночи
H = Hour(T) 'к-во часов
M = Minute(T) 'к-во минут
Fm = M / 60 * P2 'угол минутной стрелки
End Sub

@fenix22rus 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 24
		1
	Определение значение угла для минутной стрелки, и количество часов и полных минут 17.11.2011, 16:37. Показов 1463. Ответов 1 Метки нет (Все метки) 0

	21.11.2011, 08:59