Реализация программного модуля, на встроенном языке программирования Visual Basic for Application (VBA), страница 22

If p(z(2)) + n(z(2), z(3)) = p(z(3)) Then Worksheets("Лист3").Cells(min(z(2), z(3)) + 10, max(z(2), z(3)) + 8) = "+"

If p(z(3)) - n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(min(z(3), z(4)) + 10, max(z(3), z(4)) + 8) = "-": s = s + 1

If p(z(3)) + n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(min(z(3), z(4)) + 10, max(z(3), z(4)) + 8) = "+"

If p(z(4)) - n(z(4), z(5)) = p(z(5)) Then Worksheets("Лист3").Cells(min(z(4), z(5)) + 10, max(z(4), z(5)) + 8) = "-": s = s + 1

If p(z(4)) + n(z(4), z(5)) = p(z(5)) Then Worksheets("Лист3").Cells(min(z(4), z(5)) + 10, max(z(4), z(5)) + 8) = "+"

If p(z(5)) - n(z(5), z(6)) = p(z(6)) Then Worksheets("Лист3").Cells(min(z(5), z(6)) + 10, max(z(5), z(6)) + 8) = "-": s = s + 1

If p(z(5)) + n(z(5), z(6)) = p(z(6)) Then Worksheets("Лист3").Cells(min(z(5), z(6)) + 10, max(z(5), z(6)) + 8) = "+"

End If

If p(a) > p(b) And a <= b Then

If p(z(1)) - n(z(1), z(2)) = p(z(2)) Then Worksheets("Лист3").Cells(min(z(1), z(2)) + 10, max(z(1), z(2)) + 8) = "+"

If p(z(1)) + n(z(1), z(2)) = p(z(2)) Then Worksheets("Лист3").Cells(min(z(1), z(2)) + 10, max(z(1), z(2)) + 8) = "-": s = s + 1

If p(z(2)) - n(z(2), z(3)) = p(z(3)) Then Worksheets("Лист3").Cells(min(z(2), z(3)) + 10, max(z(2), z(3)) + 8) = "+"

If p(z(2)) + n(z(2), z(3)) = p(z(3)) Then Worksheets("Лист3").Cells(min(z(2), z(3)) + 10, max(z(2), z(3)) + 8) = "-": s = s + 1

If p(z(3)) - n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(min(z(3), z(4)) + 10, max(z(3), z(4)) + 8) = "+"

If p(z(3)) + n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(min(z(3), z(4)) + 10, max(z(3), z(4)) + 8) = "-": s = s + 1

If p(z(4)) - n(z(4), z(5)) = p(z(5)) Then Worksheets("Лист3").Cells(min(z(4), z(5)) + 10, max(z(4), z(5)) + 8) = "+"

If p(z(4)) + n(z(4), z(5)) = p(z(5)) Then Worksheets("Лист3").Cells(min(z(4), z(5)) + 10, max(z(4), z(5)) + 8) = "-": s = s + 1

If p(z(5)) - n(z(5), z(6)) = p(z(6)) Then Worksheets("Лист3").Cells(min(z(5), z(6)) + 10, max(z(5), z(6)) + 8) = "+"

If p(z(5)) + n(z(5), z(6)) = p(z(6)) Then Worksheets("Лист3").Cells(min(z(5), z(6)) + 10, max(z(5), z(6)) + 8) = "-": s = s + 1

End If

If p(a) <= p(b) And a > b Then

If p(z(1)) - n(z(1), z(2)) = p(z(2)) Then Worksheets("Лист3").Cells(max(z(1), z(2)) + 10, min(z(1), z(2)) + 8) = "-": s = s + 1

If p(z(1)) + n(z(1), z(2)) = p(z(2)) Then Worksheets("Лист3").Cells(max(z(1), z(2)) + 10, min(z(1), z(2)) + 8) = "+"

If p(z(2)) - n(z(2), z(3)) = p(z(3)) Then Worksheets("Лист3").Cells(max(z(2), z(3)) + 10, min(z(2), z(3)) + 8) = "-": s = s + 1

If p(z(2)) + n(z(2), z(3)) = p(z(3)) Then Worksheets("Лист3").Cells(max(z(2), z(3)) + 10, min(z(2), z(3)) + 8) = "+"

If p(z(3)) - n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(max(z(3), z(4)) + 10, min(z(3), z(4)) + 8) = "-": s = s + 1

If p(z(3)) + n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(max(z(3), z(4)) + 10, min(z(3), z(4)) + 8) = "+"

If p(z(4)) - n(z(4), z(5)) = p(z(5)) Then Worksheets("Лист3").Cells(max(z(4), z(5)) + 10, min(z(4), z(5)) + 8) = "-": s = s + 1

If p(z(4)) + n(z(4), z(5)) = p(z(5)) Then Worksheets("Лист3").Cells(max(z(4), z(5)) + 10, min(z(4), z(5)) + 8) = "+"

If p(z(5)) - n(z(5), z(6)) = p(z(6)) Then Worksheets("Лист3").Cells(max(z(5), z(6)) + 10, min(z(5), z(6)) + 8) = "-": s = s + 1

If p(z(5)) + n(z(5), z(6)) = p(z(6)) Then Worksheets("Лист3").Cells(max(z(5), z(6)) + 10, min(z(5), z(6)) + 8) = "+"

End If

If p(a) > p(b) And a > b Then