|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
نويسنده |
پيغام |
drblack بازی ساز
تاريخ عضويت: 1 شنبه 4 فروردين 1387 تعداد ارسالها: 122 محل سكونت: خوب معلومه همینجا!
جمعه 2 بهمن 1388 - 22:39 |
|
|
ای بابا بعد یه عمری یه معما حل کردیم اونم اشتباه بود. افسوس...
نمیدونم چرا جواب مورد نظر شما در نیومده. من اینو با کامپیوتر بدست آوردم
این کدی هست که من برای حل این معما نوشتم. (وی بی دات نت) و تقریبا مطمئن هستم که درست کار مکینه:
كد: |
Public Class Form1
Private Function ConH2D(ByVal hour As Integer, ByVal min As Integer, ByVal sec As Integer) As Single()
Dim Hangle As Single = (hour * 30) + (min / 2) + (sec * 0.0083)
Dim Mangle As Single = (min * 6) + (sec / 10)
Dim ret() As Single = {Hangle, Mangle}
Return ret
End Function
Private Function conD2H(ByVal D() As Single) As Date
Dim hour As Integer = D(0) / (0.0083 * 3600)
Dim min As Integer = (D(1) * 60) / 360
Dim sec As Integer = (((D(1) * 60) / 360) - Int((D(1) * 60) / 360)) * 60
Dim millisec As Integer = (((((D(1) * 60) / 360) - Int((D(1) * 60) / 360)) * 60) - Int((((D(1) * 60) / 360) - Int((D(1) * 60) / 360)) * 60)) * 100
Return New Date(2010, 1, 12, hour, min, sec, millisec)
End Function
Dim a As New List(Of Single())
Private Sub solve()
For i = 0 To 11
For j = 0 To 59
For k = 0 To 59
Dim ret() As Single = {ConH2D(i, j, k)(0), ConH2D(i, j, k)(1)}
a.Add(ret.Clone)
Next
Next
Next
For Each item In a
For Each item2 In a
If Math.Abs(item(0) - item2(1)) < 0.01 And Math.Abs(item(1) - item2(0)) < 0.01 Then
Dim d As TimeSpan = (conD2H(item) - conD2H(item2))
TextBox1.Text += "length: " + d.ToString + " start: " + conD2H(item).ToString("t") + " end: " + conD2H(item2).ToString("t") + vbNewLine
End If
Next
Next
MsgBox("Calculation compelete!")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
solve()
End Sub
End Class
|
|
_________________ دست یکی از اعضای بدن انسان است! |
|
بازگشت به بالا |
|
|
|
|
|
|
|
|
|
|
|
|
|
نويسنده |
پيغام |
Ali_Hashemi در حال رشد
تاريخ عضويت: شنبه 3 ارديبهشت 1384 تعداد ارسالها: 95 محل سكونت: Earth
5 شنبه 6 اسفند 1388 - 01:25 |
|
بازگشت به بالا |
|
|
صفحه 31 از 34 |
تمام ساعات و تاريخها بر حسب 3.5+ ساعت گرينويچ مي باشد برو به صفحه قبلي 1, 2, 3 ... 30, 31, 32, 33, 34 بعدي
|
|
شما نمي توانيد در اين انجمن نامه ارسال كنيد. شما نمي توانيد به موضوعات اين انجمن پاسخ دهيد شما نمي توانيد نامه هاي ارسالي خود را در اين انجمن ويرايش كنيد شما نمي توانيد نامه هاي ارسالي خود را در اين انجمن حذف كنيد شما نمي توانيد در نظر سنجي هاي اين انجمن شركت كنيد
|
|
|