Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Работа с матрицами. Двухмерные массивы называются матрицами; матрица – это таблица, содержащая m строк и n столбцов



Двухмерные массивы называются матрицами; матрица – это таблица, содержащая 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 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.005 с)...