Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Двухмерные массивы называются матрицами; матрица – это таблица, содержащая m строк и n столбцов. Например, матрица А имеет вид:
, где m = 4; n = 5.
Элемент матрицы обозначается именем и двумя индексами - индекс строки (например, i) и индекс столбца (например, j) - на пересечении которых стоит этот элемент. В языке индексы отделяются друг от друга запятой и заключаются в квадратные скобки. Элемент Aij обозначается как A(I,J).
Индексами могут быть константы, переменные, выражения, принимающие целые значения.
Пример оформления лабораторной работы
Задание
В построенной матрице A(7,4) определить количество элементов, для которых выполнено условие: -0,5 < aij < 0,5. Элементы матрицы строятся по правилу: aij = sin (i + j / 2). Матрицу напечатать.
Имена идентификаторов и свойства объектов управления представлены в таблицах 37 и 38, а результат работы приложения и блок-схема на рисунках 25 и 26.
Таблица 37 – Имена идентификаторов
Назначение переменной | Имя | Тип |
Исходная матрица | A | Single |
Переменная k | t | Integer |
Переменная цикла | i | Integer |
Переменная n | n | Integer |
Переменная m | m | Integer |
Переменная цикла | j | Integer |
Таблица 38 – Свойства объектов
Элемент управления | Значение свойства: | |
Caption | Name | |
CommandButton | Выполнить | CommandButton1 |
CommandButton | Выход | CommandButton2 |
CommandButton | Расчет | CommandButton1 |
Label | Исходная матрица | Label1 |
ListBox | ListBox1 | |
Label | Количество элементов | Label2 |
TextBox | TextBox1 |
Событийная процедура кнопки Расчёт
Private Sub CommandButton1_Click()
Dim A(1 To 7, 1 To 4) As Single
Dim i As Integer, j As Integer, k As Integer
Dim sr As String
k = 0
ListBox1.Clear
For i = 1 To 7
sr = ""
For j = 1 To 4
A(i, j) = Sin(i + j / 2)
sr = sr + " " + Format(A(i, j), "0.000") + " "
If (A(i, j) > -0.5) And (A(i, j) < 0.5) Then k = k + 1
Next j
ListBox1.AddItem (sr)
Next i
TextBox1.Text = Str(k)
End Sub.
Рисунок 28 – Блок-схема
Рисунок 29 – Результат работы приложения
Дата публикования: 2014-11-02; Прочитано: 264 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!