5. Выполнение проекта

5. “Производная структура заполнение” вариант 12

Задача №4

Пример №1

Программный код

Private Sub Command1_Click()

Dim m As Integer, i As Integer, j As Integer, e() As Byte

Dim W1 As String , W2 As String , Data As String

m = InputBox("Введите размерность массива m")

ReDim e(m, m)

W1 = InputBox("Укажите учебную группу")

W2 = InputBox("Укажите инициалы имени и отчества, фамилию")

Data = InputBox("Укажите дату тремя парами арабских цифр")

For i = 1 To m

For j = 1 To m

If i = j Then

e(i, j) = 1

Else

e(i, j) = 0

End If

Next j

Next i

' Очистка экрана монитора

Cls

' Вывод значений элементов матрицы на форму

Print "Значения элементов матрицы Е:"

For i = 1 To m

Print

For j = 1 To m

Print e(i, j);

Next j

Next i

Print "Исполнил студент "; W1; Tab(48); W2

Print Data

End Sub

Программный код

Private Sub Command1_Click()

Dim x0 As Single, xk As Single, dx As Single

Dim i As Integer, y() As Single, m As Integer

Dim W1 As String, W2 As String, Data As String

x0 = InputBox("Введите начальное значение параметра цикла")

xk = InputBox("Введите конечное значение параметра цикла")

dx = InputBox("Введите шаг изменения параметра цикла")

m = (xk - x0) / dx + 1

ReDim y(1 To m, 1 To 2)

x = x0

For i = 1 To m

y(i, 1) = x

y(i, 2) = Sin(x)

x = x + dx

Next

W1 = InputBox("Укажите учебную группу")

W2 = InputBox("Укажите инициалы имени и отчества, фамилию")

Data = InputBox("Укажите дату тремя парами арабских цифр")

Print "Входные данные:"

Print "x0 = "; x0 & " xk = "; xk & " dx = "; dx

Print "Элементы массива имеют следующие значения:"

For i = 1 To m

Print "y(" & i & ",1)= " & Format(y(i, 1), " ###.00") & " y(" & i & ",2)= " & y(i, 2)

Next: Print

Print "Исполнил студент "; W1; Tab(48); W2

Print Data

End Sub

6. “Производная структура поиск”

Код приложения:

Private Sub Command1_Click()

Dim i As Integer, m As Integer, q As Integer, k As Double, a() As Double

Dim W1 As String, W2 As String, Data As String

m = InputBox("Введите размерность массива m")

ReDim a(m)

For i = 1 To m

a(i) = InputBox("a(" & i & ")")

Next i

k = a(1) : q = 1

For i = 2 To m

If a(i) > k Then

k = a(i) : q = i

End If

Next i

Print : Print Tab(10); "Значения исходного вектора:"

For i = 1 To m

Print "a(" & i & ") =" & Format(a(i), "0.000")

Next i : Print

W1 = InputBox("Укажите учебную группу")

W2 = InputBox("Укажите инициалы имени и отчества, фамилию")

Data = InputBox("Укажите дату тремя парами арабских цифр")

Print “Максимальное значение = ” & k

Print ”Индекс элемента массива = “ & q

Print

Print "Исполнил студент "; W1; Tab(48); W2

Print Data

End Sub

7. “Производная структура накопление”

Пример №1

Разработать информационную технологию, позволяющую вычислить сумму значений элементов первой и последней строк матрицы А произвольной размерности m×n.

Входные данные:

m – целое число;

n – целое число;

A = [a_ij], ,– массив вещественных чисел.

Выходные данные:

s – искомая сумма, вещественное число.

Описание математических и логических зависимостей.

Схема алгоритма:

Нет

Код приложения:

Private Sub Command1_Click()

Dim m As Integer, n As Integer

Dim s As Single, a() As Single, i As Integer, j As Integer

Dim W1 As String, W2 As String, Data As String

m = InputBox(“Введите количество строк матрицы”)

n = InputBox(“Введите количество столбцов матрицы”)

ReDim a(m, n)

For i = 1 To m

For j = 1 To n

a(i, j) = InputBox("a(" & i & "," & j & ")")

Next j

Next i

s = 0

For j = 1 To n

s = s + a(1, j) + a(m, j)

Next j

Print Tab(5); “Исходная матрица” : Print

For i = 1 To m

Print

For j = 1 To n

Print Format(a(i, j), " ##.## ");

Next

Next: Print

Print “Сумма первой и последней строк матрицы равна ” & s

W1 = InputBox("Укажите учебную группу")

W2 = InputBox("Укажите инициалы имени и отчества, фамилию")

Data = InputBox("Укажите дату тремя парами арабских цифр")Print

Print "Исполнил студент "; W1; Tab(48); W2

Print Data

End Sub

Пример №2

Разработать информационную технологию, позволяющую вычислить произведение элементов матрицы А размерности m×n, имеющих чётные значения индексов строк.

Входные данные: m – целое число; n – целое число;

A=[a_{i j}], ,– массив вещественных чисел.

Выходные данные: р – произведение элементов матрицы, имеющих чётные значения индексов строк, вещественное число.

Описание математических и логических зависимостей.

Схема алгоритма:

Нет

Нет

Код приложения:

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer, n As Integer

Dim p As Single, a() As Single

Dim W1 As String, W2 As String, Data As String

m = InputBox("Введите количество строк матрицы")

n = InputBox("Введите количество столбцов матрицы")

ReDim a(m, n)

For i = 1 To m

For j = 1 To n

a(i, j) = InputBox("a(" & i & "," & j & ")")

Next j

Next i

p = 1

For i = 2 To m Step 2

For j = 1 To n

р = р * a(i, j)

Next j

Next i

Print "Произведение элементов матрицы "

Print " с четными индексами строк = " & р

Print "Исходная матрицы" : Print

For i = 1 To m

For j = 1 To n

Print Format(a(i, j), "#.## ");

Next

Next : Print

W1 = InputBox("Укажите учебную группу")

W2 = InputBox("Укажите инициалы имени и отчества, фамилию")

Data = InputBox("Укажите дату тремя парами арабских цифр")

Print "Исполнил студент "; W1; Tab(48); W2 : Print Data

End Sub

Примеры отчетов по лабораторным работам