POISK_33__33__33

АТ-701 Вариант 5 Лабораторная работа №6 М.В. Вечер 25.02.18

5 "Производная СТРУКТУРА ПОИСК"

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

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

Определить индексы минимального элемента на главной диагонали квадратной матрицы N4 размерности N0 .Для отладки программы матрицу выбрать самостоятельно.

1.2 Описание постановки задачи

Входные данные: N0, {N4} - вещественные

Выходные данные: i, j - вещественные

1.3 Составление схема алгоритма:

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

Private Sub Command1_Click()  Dim i, j As Integer  Dim index As Integer, K As Integer  Dim N0 As Integer  Dim N4() As Single  Dim N4min As Single  Dim W1 As String, W2 As String, Data As String  N0 = InputBox("Введите массив")  ReDim N4(1 To N0, 1 To N0)  For i = 1 To N0  For j = 1 To N0  N4(i, j) = InputBox("N4(" & i & "," & j & ")")  Next  Next  N4min = N4(1, 1)  For i = 1 To N0  For j = 1 To N0  If N4min > N4(i, j) Then  N4min = N4(i, j)  End If  Next j  Next i  Print " Исходная матрица N4:":  For i = 1 To N0  For j = 1 To N0  Print Format(N4(i, j), " ## ");  Next j: Print  Next i: Print  Print "N4min=" & N4min  W1 = InputBox("введите учебную группу")  W2 = InputBox("Введите Ф.И.О.")  Data = InputBox("Укажите дату тремя парами арабских цифр")  Print "Исполнил студент "; W1; Tab(48); W2  Print Data  End Sub

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