Код програми

Worksheets("Лист2").Range("A1").Value = "Матриця"

Worksheets("Лист2").Range("A1:D1").HorizontalAlignment=xlCenter

Worksheets("Лист2").Range("A1:d1").MergeCells = True

For i = 1 To m

For j = 1 To n

x(i, j) = InputBox("x(" & CStr(i) & "," & CStr(j) & ")=")

Worksheets("Лист2").Cells(i + 1, j).Value = x(i, j)

Next j

Next i

For j = 1 To n

If x(1, j) > 0 Then

For i = 1 To m \ 2

r = x(i, j)

x(i, j) = x(m - i + 1, j)

x(m - i + 1, j) = r

Next i

End If

Next j

Worksheets("Лист3").Range("A1").Value = " Змінена матриця"

Worksheets("Лист3").Range("A1:d1").HorizontalAlignment=xlCenter

Worksheets("Лист3").Range("A1:d1").MergeCells = True

For i = 1 To m

For j = 1 To n

Worksheets("Лист3").Cells(i + 1, j).Value = x(i, j)

Next j

Next i

End Sub

Вікна введення початкових даних в процесі роботи наведені на рис. 4.20.

Рисунок 4.20 - Вікна введення

Результати роботи програми наведені на рис. 4.21.

Рисунок 4.21 - Результати роботи програми (Лист1, Лист2)

Читайте також:

1. II. Вимоги до складання паспорта бюджетної програми
2. II. ПРОГРАМИ ДИСЦИПЛН
3. А.2.1. Розрахунок річної виробничої програми міських СТОА
4. А.2.2.Розрахунок виробничої програми дорожніх СТОА
5. Авторське право на комп’ютерні програми
6. Алгоритм розроблення програми комплексу маркетингу
7. Алгоритм створення тренінгової програми
8. Алфавіт мови і структура програми
9. Аналіз формування й виконання виробничої програми
10. Анімаційні програми
11. Антивірусні програми
12. Важливою складовою економічної політики 60-х рр. була реалізація програми “нових рубежів” президента Дж. Кенеді.

Переглядів: 438