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