Программный элемент поиск / 10 (2)

Задание №1

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

Уменьшить элементы вектора W размерности h на значение минимального элемента этого вектора

Входные данные: h – размерность вектора W, целая переменная; W – исходный вектор, массив вещественных переменных.

Выходные данные: W – изменённый вектор, массив целых переменных.

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

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

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

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

Private Sub Command1_Click()

Dim t As Integer, i As Integer, h As Integer, m As Single, W() As Single

h = InputBox("h=")

ReDim W(1 To h)

Print "W(исх)=";

For i = 1 To h

W(i) = InputBox("W(" & i & ")=")

Print W(i),

Next

Print

m = W(1)

For i = 2 to h

If W(i) < m Then

m = W(i)

End If

Next

For i = 1 to h

W(i) = W(i) - m

Next

Print "W(изм)=";

For i = 1 To h

Print W(i),

Next

Print

End Sub

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

Ручной расчёт

Задание №2

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

Напечатать индексы отрицательных элементов нечётных строк матрицы A размерности d*k.

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

A – исходная матрица, массив вещественных переменных.

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

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

где 1 ≤ i ≤ d с шагом 2; где 1 ≤ j ≤ k с шагом 1.

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

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

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

Private Sub Command1_Click()

Dim k As Integer, i As Integer, d As Integer, j As Integer, A() As Integer, Flag As Boolean

k = InputBox("k=")

d = InputBox("d=")

ReDim A(1 To k, 1 To d)

Print "A="

For i = 1 To k

For j = 1 To d

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

Print A(i, j),

Next

Print

Next

Print "Индексы отрицательных элементов"

Print "i", Tab, "j"

For i = 1 To k

For j = 1 To d

If A(i, j) < 0 Then

Print i, Tab, j

End If

Next

Next

End SubОтладка программы

Ручной расчёт

Отрицательными являются: A_{1 4}, A_{2 4}, A_{4 1}, A_{5 2},