Каждому элементу матрицы нужно построить маршрут из ячейки (1, 1) - VB

Формулировка задачи:

Помогите пожалуйста решить следующую задачу. ссылка удалена или хотя бы помочь с кусочком кода Заранее спасибо.

Код к задаче: «Каждому элементу матрицы нужно построить маршрут из ячейки (1, 1) - VB»

textual
Option Explicit
Dim a(), n%, m%, u%, Smax#, Smin#
 
Sub main()
 
a = Selection.Value 'Массив считан с выделенной матрицы листа Excel
n = UBound(a, 1) 'Данные этих 3-х строк по заданию надо получить
m = UBound(a, 2) 'из текстового файла (надеюсь, это не вызовет затруднения)
 
u = n + m - 1
Smax = 1
Smin = 1.79769313486231E+308
 
Forw 1, 1, 1, 1
 
Debug.Print Smax - Smin 'вывести следовало в файл, но это тоже не олимпиадная задача
 
End Sub
 
Sub Forw(l%, r%, c%, ByVal s#)
s = s * a(r, c)
If l < u Then
  If r < n Then Forw l + 1, r + 1, c, s
  If c < m Then Forw l + 1, r, c + 1, s
Else
  If s > Smax Then Smax = s
  If s < Smin Then Smin = s
End If
End Sub

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы