Основы и принципы работы в VBA. Часть 3: Методические указания к выполнению лабораторных работ, страница 8

2) Вычислить сумму и количество положительных элементов матрицы С, находящихся над главной диагональю и на ней.

С =

 8,4

–2,5

 6

–6,8

 5

  4

 0

  3,8

 3

  6,8

 2

  7

11

13

45

–5

3) В двумерном массиве Р(4, 4) подсчитать количество нулевых элементов и вместо них записать значение квадрата суммы элементов матрицы. Найти произведение элементов главной диагонали полученной матрицы.

Р =

 8,4

–2,5

6

  0

 5

  4

0

  3,8

 0

  6,8

2

  7

11

13

0

–5

4) Ввести матрицу размером Н(3, 3). Подсчитать количество отрицательных элементов нижней треугольной матрицы, включая элементы главной диагонали.

Н =

  8,4

  0

–5

–1,2

–9,1

15

–4,5

17,3

  0

5) Ввести матрицу размером А(4, 4). Вычислить сумму и количество нечетных элементов матрицы, находящихся под главной диагональю и на ней.

А =

 8

 2

 6

18

 6

 4

55

13

 3

16

 2

32

11

13

45

44

6) Задан произвольный массив  X(5, 3),  преобразовать  его: все элементы,  сумма  индексов  которых представляет собой четное число, заменить нулями. Вывести на печать исходный и полученный массивы.

7) Задан произвольный массив W(4, 5), преобразовать его: все элементы, произведение индексов которых представляет нечетное число, заменить суммой всех элементов исходного массива. Вывести на печать исходный и полученный массивы.

8) Задан произвольный массив  К(5, 4), преобразовать его: все элементы нечетных строк заменить единицами и затем найти сумму элементов полученного массива. Вывести на печать исходный и полученный массивы.

9) Записать единицы на место элементов матрицы У(5, 5), имеющих четные координаты. Подсчитать количество выполненных замен. Вывести на печать элементы главной диагонали полученной матрицы.

10) Сформировать двумерный массив А(7, 7) по правилу: элементы, расположенные на главной диагонали, равны 1, все остальные элементы – нулевые. Вывести на печать полученный массив.

11) Записать на место отрицательных элементов матрицы С(4, 4) нули и подсчитать количество выполненных замен. Вывести на печать нижнюю треугольную матрицу.

С =

  8

  –2

    6

  7

–6

    4

–55

  3

  3

  16

    2

  7

11

–13

  45

–5

12) Дан массив  C(4, 4),  преобразовать  его: все элементы,  расположенные под главной диагональю, заменить нулями, а элементы, расположенные над главной диагональю, – единицами. Вывести на печать исходный и полученный массивы.

С =

  8

  –2

    6

  7

–6

    4

–55

  3

  3

  16

    2

  7

11

–13

  45

–5

13) В массиве W(5, 5) поменять местами  первую и последнюю строки. Вывести на печать нижнюю треугольную матрицу.

W =

    5

–22

  16

  18     

–12

–61

  14

–35

–13

  61

    3

  16

    2

  32

  17

  11

–13

  45

  44

–23

    4

–41

  56

  33

  19

14) В матрице Р(5, 5) записать на место положительных элементов матрицы нули,  а на место отрицательных – единицы.  Подсчитать количество выполненных замен. Вывести на печать верхнюю треугольную матрицу.

P =

  8

 –2

    6

  18

–6

   4

–55

–13

  3

  16

    2

  32

 11

–13

  45

  44

15) Сформировать программным путем (без использования операторов ввода данных) и вывести на печать матрицу A(4, 4). Найти сумму и произведение элементов нижней треугольной матрицы.  


Библиографический список

1. Соболь Б. В. Информатика / Б. В. Соболь / Ростов-на-Дону: Феникс, 2005. 448 с.

2. Информатика. Базовый курс / С. В. Симонович, Г. А. Евсеев и др. СПб: Питер, 2005. 640 с.

3. Васильев А. А. VBA в Office 2000 / А. А. Васильев, А. Б. Андреев. СПб: Питер, 2001. 432 с.

4. Кузьменко В. Г. VBA 2003 / В. Г. Кузьменко. М.: Бином-Пресс, 2004. 408 с.

5. Назаров С. В.  Программирование на MS Visual Basic / С. В. Назаров, П. П. Мельников. М.: Финансы и статистика, 2003. 320 с.


Учебное  издание

Иванова Валентина Васильевна, КРЫГИН Анатолий Николаевич,

САЛЯ Илья Леонидович, УСОЛЬЦЕВА Лариса Александровна

Основы  и  принципы  работы  в  vba

Часть 3

_________________

Редактор Т. С. Паршикова

 *** 

Подписано в печать      .12.2008. Формат 60 × 84 1/16.

Плоская печать. Бумага офсетная. Усл. печ. л. 2,5. Уч.-изд. л. 2,7.

 Тираж 850 экз. Заказ        .

**

Редакционно-издательский отдел ОмГУПСа

Типография ОмГУПСа 

*

644046, г. Омск,  пр. Маркса, 35