Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Задание. Построить вещественную матрицу 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. Какой тип данных можно храниться в массиве?
Дата публикования: 2014-11-02; Прочитано: 237 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!