Программный элемент поиск / 11

Задание №1

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

1.1. Словесное описание задачи:

Напечатать индексы элементов одномерного массива R произвольной размерности, имеющих нулевые значения.

1.2. Состав входных и выходных данных:

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

N – переменная целого типа,

R – массив данных вещественного типа.

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

i – переменная целого типа.

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

Если R_i=0, то напечатать i,

где i=1, 2, … N.

3. Схема алгоритма

4. Код программы

Private Sub Command1_Click()

Dim N As Integer, R() As Single, i As Integer, flag As Boolean

N = InputBox("N=")

ReDim R(1 To N)

Print "R=";

For i = 1 To N

R(i) = InputBox("R(" & i & ")=")

Print R(i) & " ";

Next

Print

Print "Индексы элементов равных 0:"

For i = 1 To N

If R(i) = 0 Then

Print " " & i

flag = True

End If

Next

If flag = False Then

Print "Элементов равных 0 нет"

End If

End Sub

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

Задание №2

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

1.1. Словесное описание задачи:

Найти максимальные элементы в столбцах матрицы B размерности k×l.

1.2. Состав входных и выходных данных:

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

k – переменная целого типа,

l – переменная целого типа

B – массив данных вещественного типа.

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

i – переменная целого типа,

j – переменная целого типа.

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

где j=1, 2, … l.

3. Схема алгоритма

4. Код программы

Private Sub Command1_Click()

Dim k As Integer, l As Integer, B() As Single, max As Integer, i As Integer, j As Integer

k = InputBox("k=")

l = InputBox("l=")

ReDim B(1 To k, 1 To l)

Print "B="

For i = 1 To k

For j = 1 To l

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

Print B(i, j),

Next

Print

Next

For j = 1 To l

max = 1

For i = 2 To k

If B(i, j) > B(max, j) Then

max = i

End If

Next

Print "В " & j & " столбце максимальным является " & max & " элемент"

Next

End Sub

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