Программный элемент заполнение / Зап-нак-по

Задание 1

1. Постановка задачи

Заполнить матрицу A так, чтобы каждый ее элемент был равен частному от деления номера строки на номер столбца, в которых он находится.

Входные данные: m – количество строк матрицы; целая переменная,

n – количество столбцов матрицы; целая переменная.

Выходные данные: А – матрица, массив вещественных чисел.

2. Математическая модель

Для всех i = 1, 2, …, m; j = 1, 2, …, n

3. Разработка алгоритма

4. Разработка визуальной части проекта

На форме располагаем только командную кнопку Command1. В свойстве Caption кнопки записываем «Заполнить».

5. Код приложения

Private Sub Command1_Click()

Dim m As Integer, n As Integer, i As Integer, j As Integer, A() As Single

m = InputBox("m=")

n = InputBox("n=")

ReDim A(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

A(i, j) = i / j

Next

Next

For i = 1 To m

For j = 1 To n

Print Format(A(i, j), "0.00"),

Next

Print

Next

End Sub

6. Отладка программы

Ручной счет:

i = 1; j = 2; a_ij = 0,5

i = 5; j = 3; a_ij = 1,7

i = 3; j = 4; a_ij = 0,75

Задание 2

1. Постановка задачи

Найти среднее геометрическое первых K элементов вектора М размерности N. Проанализировать выполнение программы на примере K = 4.

М = {2; 3; 1; 10; 7; 2; 4}.

Входные данные: M – вектор; массив вещественных чисел,

N – размерность вектора; целая переменная,

K – количество элементов для среднего геометрического, целая

переменная.

Выходные данные: Sg – среднее геометрическое; вещественная переменная.

2. Математическая модель

Для всех i = 1, 2, …, K.

3. Разработка алгоритма

4. Разработка визуальной части проекта

На форме располагаем только командную кнопку Command1. В свойстве Caption кнопки записываем «Вычислить».

5. Код приложения

Private Sub Command1_Click()

Dim M() As Single, N As Integer, Sg As Single, i As Integer, K As Integer

N = InputBox("N=")

ReDim M(1 To N)

For i = 1 To N

M(i) = InputBox("M(" & i & ")=")

Print M(i),

Next

Print

K = InputBox("K=")

Sg = 1

For i = 1 To K

Sg = Sg * M(i) ^ (1 / K)

Next

Print "Среднее геометрическое первых " & K & " элементов равен " & Sg

End Sub

6. Отладка программы

Ручной счет:

Задание 3

1. Постановка задачи

Найти минимальные элементы в столбцах матрицы D. Напечатать их значения и индексы.

Входные данные: m – количество строк матрицы; целая переменная,

n – количество столбцов матрицы; целая переменная.

D – матрица, массив вещественных чисел.

Выходные данные: i – индекс строки минимального элемента; целая переменная,

j – индекс столбца минимального элемента; целая переменная,

D_ij – минимальный элемент в столбце; вещественная

переменная.

2. Математическая модель

Для всех j = 1, 2, 3, …, N.

3. Разработка алгоритма

4. Разработка визуальной части проекта

На форме располагаем только командную кнопку Command1. В свойстве Caption кнопки записываем «Найти Мin».

5. Код приложения

Private Sub Command1_Click()

Dim m As Integer, n As Integer, D() As Single, i As Integer, j As Integer, min As Integer

m = InputBox("m=")

n = InputBox("n=")

ReDim D(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

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

Print D(i, j),

Next

Print

Next

Print "Минимальные элементы:"

For j = 1 To n

min = 1

For i = 2 To m

If D(min, j) > D(i, j) Then

min = i

End If

Next

Print "D(" & min & ", " & j & ")=" & D(min, j)

Next

End Sub

6. Отладка программы

Ручной счет:

Минимальные элементы: