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

Задание №1

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

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

Найти наибольший из элементов двух векторов K размерности L и M размерности N, присвоить его значение первому элементу вектора K. Проанализировать выполнение программы на примере

K={1; 2; 3; -3; -2; -1}; M={-1; -2; -3; 3; 3,1}.

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

Входные данные: L – размерность вектора K, переменная целого типа, N – размерность вектора M, переменная целого типа, K= – исходный вектор K, массив вещественных чисел, M= – исходный вектор M, массив вещественных чисел.

Выходные данные: K= – изменённый вектор K, массив вещественных чисел.

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

для если k₁<k_i, то k₁=k_i для если k₁<m_i, то k₁=m_i

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

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

Private Sub Command1_Click() Dim L As Integer, N As Integer, K() As Single, M() As Single, i As Integer L = InputBox("Введите размерность вектора K") N = InputBox("Введите размерность вектора M") ReDim K(1 To L), M(1 To N) Print "K={ "; For i = 1 To L K(i) = InputBox("K(" & i & ")=") Print K(i) & " "; Next Print "}" Print "M={ "; For i = 1 To N M(i) = InputBox("M(" & i & ")=") Print M(i) & " "; Next Print "}" Print For i = 2 To L If K(1) < K(i) Then K(1) = K(i) End If Next For i = 1 To N If K(1) < M(i) Then K(1) = M(i) End If Next Print "K={ "; For i = 1 To L Print K(i) & " "; Next Print "}" End Sub

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

Задание №2

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

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

Определить и напечатать индексы отрицательных элементов матрицы T1 размерности K×I1.

Для отладки программы контрольный вариант выбрать самостоятельно.

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

Входные данные: K – количество строк массива, переменная целого типа, I1 – количество столбцов массива, переменная целого типа, T1={t1_ij}, где i= j= – массив вещественных чисел.

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

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

Для , для , если t1_ij<0, то напечатать i, j

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

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

Private Sub Command1_Click() Dim K As Integer, I1 As Integer, T1() As Single, i As Integer, j As Integer K = InputBox("Введите количество строк") I1 = InputBox("Введите количество столбцов") ReDim T1(1 To K, 1 To I1) Print "T1=" For i = 1 To K For j = 1 To I1 T1(i, j) = InputBox("T1(" & i & ", " & j & ")=") Print T1(i, j) & " "; Next Print Next For i = 1 To K For j = 1 To I1 If T1(i, j) < 0 Then Print i & " " & j End If Next Next End Sub

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