15.3. Äâóìåðíûå ìàññèâû - ÷àñòü 2
Dim t(3, 4) As Integer
Dim i, j, s As Integer
'Çàäàäèì çíà÷åíèÿ ýëåìåíòîâ ìàññèâà ïðèìèòèâíûì ïðèñâàèâàíèåì:
t(1, 1) = -8 : t(1, 2) = -14 : t(1, 3) = -19 : t(1, 4) = -18
t(2, 1) = 25 : t(2, 2) = 28 : t(2, 3) = 26 : t(2, 4) = 20
t(3, 1) = 11 : t(3, 2) = 18 : t(3, 3) = 20 : t(3, 4) = 25
'Âûïîëíÿåì 1 ïóíêò çàäàíèÿ:
Debug.WriteLine(t(2, 4) & " " & t(3, 1))
'À òåïåðü ðàñïå÷àòàåì âòîðîé ñòîëáåö ìàññèâà (2 ïóíêò çàäàíèÿ):
Debug.Write("Âòîðîé ñòîëáåö: ")
For i = 1 To 3 : Debug.Write(t(i, 2) & " ") : Next
Debug.WriteLine("") 'Ïåðåâîäèì ñòðîêó
'Îïðåäåëèì ñðåäíåå çíà÷åíèå ýëåìåíòîâ òðåòüåé ñòðîêè (3 ïóíêò çàäàíèÿ):
i = 3
s = 0
For j = 1 To 4 : s = s + t(i, j) : Next
Debug.WriteLine("Ñðåäíÿÿ òåìïåðàòóðà ðàâíà " & s / 4)
'Ðàñïå÷àòàåì âñþ òàáëèöó (4 ïóíêò çàäàíèÿ):
For i = 1 To 3
For j = 1 To 4
Debug.Write(t(i, j) & " ")
Next j
Debug.WriteLine("") 'Ïåðåâîäèì ñòðîêó
Next i
'Ðàñïå÷àòàåì ñòàíöèè è äíè ñ òåìïåðàòóðîé 24-26 ãðàäóñîâ (5 ïóíêò çàäàíèÿ):
For i = 1 To 3
For j = 1 To 4
If t(i, j) >= 24 And t(i, j) <= 26 Then Debug.WriteLine("Ñòàíöèÿ " & i & " äåíü " & j)
Next j
Next i
End Sub
Âîò ÷òî íàïå÷àòàåò ýòà ïðîãðàììà:
20 11
Âòîðîé ñòîëáåö: -14 28 18
Ñðåäíÿÿ òåìïåðàòóðà ðàâíà 18,5
-8 -14 -19 -18
25 28 26 20