在几点几分几秒时,秒针、分针、时针两两所成角度均为120度?

发布网友发布时间：2024-09-30 14:39

共5个回答

热心网友时间：2024-10-26 02:03

如果考虑到秒针影响分针，分针影响时针的话，那么没有答案。

如果类似电子表里面的都是一个一个蹦的，不到正点正分不走的话，那么答案如下：
0时 20分 40秒
0时 40分 20秒
1时 25分 45秒
1时 45分 25秒
2时 30分 50秒
2时 50分 30秒
3时 35分 55秒
3时 55分 35秒
4时 0分 40秒
4时 40分 0秒
5时 5分 45秒
5时 45分 5秒
6时 10分 50秒
6时 50分 10秒
7时 15分 55秒
7时 55分 15秒
8时 0分 20秒
8时 20分 0秒
9时 5分 25秒
9时 25分 5秒
10时 10分 30秒
10时 30分 10秒
11时 15分 35秒
11时 35分 15秒

以上使用VB程序自动算出来的，源代码如下：
Private Sub Command1_Click()
Me.Enabled = False

shi = 0
fen = 0
miao = 0
shi1 = 0
fen1 = 0
miao1 = 0

i = 0
temp = 0

For i = 0 To 43200
'计算时分秒
miao = i Mod 60
fen = Int((i Mod 3600) / 60)
shi = Int(i / (3600))
'计算各个角度
miao1 = miao * 6
fen1 = fen * 6 '+ Int(miao / 10)
shi1 = shi * 30 '+ Int(fen / 10)

'计算三个数之间的大小
If miao1 > fen1 Then
temp = miao1
miao1 = fen1
fen1 = temp
Else
End If

If fen1 > shi1 Then
temp = fen1
fen1 = shi1
shi1 = temp
Else
End If

If miao1 > fen1 Then
temp = miao1
miao1 = fen1
fen1 = temp
Else
End If

'计算角度差
If (shi1 - fen1) = 120 Then
If (fen1 - miao1) = 120 Then
Text1.Text = Text1.Text + " " + Str(shi) + "时" + Str(fen) + "分" + Str(miao) + "秒"
Else
End If
Else
End If
Next i

热心网友时间：2024-10-26 02:06

不可能！指针都是有宽度的，是想如何才会各分成120度？
只有在理想环境下才有可能，就是忽略指针的宽度

热心网友时间：2024-10-26 02:05

没有绝对了120，时针和分针都是慢慢走的，而秒针是一下一下走的，他们之间用等式可以算出来的但算出来的是无理数，而秒针是一下下跳的所以，直接跳过了这个数，没有绝对的120，就是说在表上你调不出这个数来，而可以数出一个无理数，符合这个120度的要求。算是非常麻烦的，以他们之间的同时间比12：1入手，根根据秒针是一下一下跳的入手就可以。这里我就不算了。

热心网友时间：2024-10-26 02:02

12 :15: 20 07 00 20