Коле подарили билет в парк аттракционов, в который входит посещение всех аттракционов по одному разу. - id2054829320210624 от ASM235 24.06.2021 07:07

Question

Информатика: Коле подарили билет в парк аттракционов, в который входит посещение всех аттракционов по одному разу. Коля хочет прокатиться на них всех, но не хочет тратить на это больше времени, чем необходимо. На схеме парка отмечены все дорожки, которые соединяют между собой аттракционы. Также указано число минут, за какое этот путь можно пройти. Для примера: путь от входа в парк ( S S) до аттракциона ( A A) составляет 3 3 минуты, путь от аттракциона ( C C) до аттракциона ( F F) составляет 5 5 минут и т.д.

ASM235 · Accepted Answer

Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)

    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i

    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub

MOGZ ответил