Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
4
3
ет
6
Конец
index
да
Pmax<P(i)
10
Pmin=P(1,L)
9
Pmin= P(i,L)
нет
да
8
i<=K
4
i=i+1
i<=M
2
Pmax=P(1)
16
15
14
5
Конец
index1
index2
P(index2)=Pmax
P(index1)=Pmin
Pmax= P(i)
нет
1
0
да
7
3
i=i+1
2
i=1
M, N, L, {X}
Начало
7
index=i
5
нет
да
Pmin>P(i,L)
1
0
K, {P}
Начало
10
нет
да
Pmin>P(i)
11
Pmin= P(i)
нет
да
13
9
i=i+1
i<=K
8
Pmin=P(1)
6
index1=i
12
index2=i
Министерство путей сообщения российской федерации
Петербургский государственный университет
Путей сообщения
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
ОТЧЕТ
о выполненной лабораторной работе №5
по дисциплине «Информатика»:
Программный элемент «Поиск»
/Вариант 20/
Выполнил студент
строительного факультета
группы С-403
Пожаров А.А.
/340320/
номер зачетной книжки
Санкт-Петербург
2004
Лабораторная работа №5
Цель работы: исследование особенностей реализации программного элемента «ПОИСК»
Определить и напечатать индексы наибольшего и наименьшего элементов одномерного массива P размерности К. Найденные элементы поменять местами.
Проанализировать выполнение программы на примере:
Private Sub Command1_Click()
Dim i As Integer
Dim K As Integer
Dim P() As Single
Dim Pmax As Single
Dim Pmin As Single
Dim index1 As Integer
Dim index2 As Integer
K = InputBox("Введите размерность массива ")
ReDim P(1 To K)
For i = 1 To K
P(i) = InputBox("Введите массив")
Next
Pmax = P(1)
For i = 1 To K
If Pmax < P(i) Then
Pmax = P(i)
index1 = i
End If
Next
Pmin = P(1)
For i = 1 To K
If Pmin > P(i) Then
Pmin = P(i)
index2 = i
End If
Next
P(index2) = Pmax
P(index1) = Pmin
Print ("Index max=" & index1)
Print ("Index min=" & index2)
End Sub
Напечатать индекс строки минимального элемента L-го столбца матрицы Х размерности М*N.
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim M As Integer
Dim N As Integer
Dim L As Integer
Dim P() As Single
Dim Pmin As Single
Dim index As Integer
M = InputBox("BBEDITE M")
N = InputBox("BBEDITE N")
L = InputBox("BBEDITE L")
ReDim P(1 To M, 1 To N)
For i = 1 To M
For j = 1 To N
P(i, j) = InputBox("ВВЕДИТЕ МАССИВ")
Next
Next
Pmin = P(1, L)
For i = 1 To M
If Pmin > P(i, L) Then
Pmin = P(i, L)
index = i
End If
Next
Print "L=" & L; Tab; "Index min i=" & index
End Sub