Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
4
L8(i)
12
12
Конец
9
Конец
i
11
Q2(2,3)=Q2min
7
2
3
i=1
нет
да
8
Q2min=Q2(i,j)
да
нет
6
i=1
Q2min=abs(Q2(1,1))
Q2min>
abs(Q2(i,j))
нет
да
8
L8(i)=K
2
нет
да
i=1
нет
10
9
6
5
4
Q2min
13
i=i+1
j=j+1
j<=m
j=1
i<=3
1
да
0
10
7
m, {Q2}
i=i+1
Начало
i<=M
нет
да
5
3
1
0
i=i+1
i<=M
M, K
Начало
Министерство путей сообщения российской федерации
Петербургский государственный университет
Путей сообщения
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
ОТЧЕТ
о выполненной лабораторной работе №5
по дисциплине «Информатика»:
Программный элемент «Поиск»
/Вариант 03/
Выполнил студент
строительного факультета
группы С-403
Грачев Ю.С.
/340303/
номер зачетной книжки
Санкт-Петербург
2004
Лабораторная работа №5
Цель работы: исследование особенностей реализации программного элемента «ПОИСК»
Найти и напечатать индекс элемента со значением К одномерного массива L8 размерности М.
Проанализировать выполнение программы на примере: К=7;
Private Sub Command1_Click()
Dim K As Single
Dim M As Integer
Dim L8() As Single
Dim F As Single
Dim i As Integer
M = InputBox("BBEDITE M")
K = InputBox("BBEDITE K")
ReDim L8(1 To M)
For i = 1 To M
L8(i) = InputBox("BBEDITE L8")
Next
For i = 1 To M
If L8(i) = K Then
Print "i=" & i
End If
Next
End Sub
Определить наименьший по модулю элемент матрицы Q2 размерности 3*М, присвоить его значение элементу второй строки третьего столбца матрицы.
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim Q2() As Single
Dim Q2min As Single
m = InputBox("BBEDITE M")
ReDim Q2(1 To 3, 1 To m)
For i = 1 To 3
For j = 1 To m
Q2(i, j) = InputBox("ВВЕДИТЕ МАССИВ")
Next
Next
Q2min = Abs(Q2(1, 1))
For i = 1 To 3
For j = 1 To m
If Q2min > Abs(Q2(i, j)) Then
Q2min = Q2(i, j)
End If
Next
Next
Q2(2, 3) = Q2min
Print "Q2min=" & Q2min
End Sub