Лекция: Пример оформления

Задание. Построить вещественную матрицу A (10,10) по правилу: aij = cos (i2 + 5).Заменить нулями все ее элементы, расположенные на главной диагонали и выше нее. Вывести на печать для сравнения обе матрицы.

Рисунок 12 – Результат работы приложения

Блок – схема

Событийная процедура кнопки Вычислить.

Private Sub CommandButton1_Click()

Dim A(1 To 10, 1 To 10) As Single, i, j, k As Integer

For i = 1 To 10

For j = 1 To 10

A(i, j) = Cos(i ^ 2 + 5)

Cells(i + 3, j) = A(i, j)

Next j

Next i

For i = 1 To 10

For j = 1 To 10

If i <= j Then A(i, j) = 0

Cells(i + 18, j) = A(i, j)

Next j

Next i

End Sub

Контрольные вопросы

1. Дайте определение двумерного массива.

2. Что такое статический и динамический массив? В чем их отличие?

3. Как получить доступ к элементу массива?

4. Синтаксис объявления статического и динамического массива.

5. Изменение размера динамического массива.

6. Какой тип данных можно храниться в массиве?