10 Декабрь 2009

Дана таблица среднесуточных температур за февраль

Задачи |

Дана таблица среднесуточных температур за февраль

Дана таблица среднесуточных температур за февраль (28 дней). Холодной считается неделя, в которой большинство составляют дни с отрицательной температурой. Месяц считается холодным, если большинство недель были холодными. Определить, каким был февраль.

Option Explicit
Dim i As Integer
Dim q As Integer
Dim w As Integer
Dim t As Integer
Dim iWeekPriority As Integer
Dim iTemperatura(1 To 7, 1 To 4) As Integer
Dim bWeekTemperatura(1 To 4) As Boolean
Dim iMonthTemperatura As Integer
Private Sub Command1_Click()
For i = 1 To 4
For t = 1 To 7
iTemperatura(t, i) = InputBox("Введите температуру")
Print iTemperatura(t, i)
Next t
Print vbNullString
Next i
For q = 1 To 4
For w = 1 To 7
If iTemperatura(w, q) >= 0 Then iWeekPriority = iWeekPriority + 1
Next w
If iWeekPriority > 3 Then bWeekTemperatura(q) = True Else bWeekTemperatura(q) = False
iWeekPriority = 0
Next q
For i = 1 To 4
If bWeekTemperatura(i) = True Then
iMonthTemperatura = iMonthTemperatura + 1
Print "+"
Else
Print "-"
End If
Next i
If iMonthTemperatura = 2 Then
MsgBox " Температура в феврале была одинаково теплой и холодной", vbOKOnly, "Ответ"
Else
If iMonthTemperatura > 2 Then MsgBox " Температура в феврале была теплой", vbOKOnly, "Ответ" Else MsgBox "Температура в феврале была холодной", vbOKOnly, "Ответ"
End If
End Sub

Private Function RandomGenerator()
Randomize
RandomGenerator = Int((10 + 10 + 1) * Rnd - 10)
End Function

Private Sub Command2_Click()
Cls
ClearArrays

End Sub

Private Sub ClearArrays()
Dim calc As Integer
Dim calc1 As Integer
Dim calc2 As Integer
i = 0
q = 0
w = 0
t = 0
iWeekPriority = 0
For calc1 = 1 To 4
For calc2 = 1 To 7
iTemperatura(calc2, calc1) = 0
Next calc2
Next calc1
For calc = 1 To 4
bWeekTemperatura(calc) = 0
Next calc
iMonthTemperatura = 0
End Sub


Оставить комментарий

Я не робот.