ÏÎÍßÒÍÎ Î Visual Basic NET (òîì 2)


              

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        




Ñîäåðæàíèå  Íàçàä  Âïåðåä