Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Поиск
Вариант 27
Павлов В. ЭС-104
Найти минимальное значение функции на промежутке
3 < Х < 9 с шагом х= 0.3. Напечатать таблицу значений функции.
Private Sub Command1_Click()
Dim X As Single
Dim Ymin As Single
Dim Y As Single
X = 3
Ymin = Sqr(X) - Cos(X)
For X = 3 To 9 Step 0.3
Y = Sqr(X) - Cos(X)
If Ymin > Y Then
Ymin = Y
End If
Next
Print "Ymin=" & Ymin
End Sub
Определить индексы первого положительного элемента К-й строки матрицы Т размерности М*N.
Для отладки программы контрольный вариант выбрать самостояте льно.
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim K As Integer
Dim M As Integer
Dim N As Integer
Dim T() As Single
M = InputBox("Введите M")
N = InputBox("Введите N")
K = InputBox("Введите K")
ReDim T(1 To M, 1 To N)
For i = 1 To M
For j = 1 To N
T(i, j) = InputBox("Введите массив")
Next
Next
For j = 1 To N
If T(K, j) = 0 Then
GoTo 1
End If
Next
1:
MsgBox ("T(" & K & "," & j & ")=" & T(K, j))
End Sub
2
Конец
10
ачало
x
1
x<=9
x=x+0.3
4
8
да
x=3
2
Ymin
9
Y=sqr(x)-cos(x)
Ymin>Y
Ymin= sqr(x)-cos(x)
3
Ymin=Y
7
0
5
6
K, M, N, {T}
0
1
i<=M
3
да
нет
K, j
Конец
13
14
T(K,j)=0
да
нет
11
j<=N
5
да
нет
i=1
2
j=1
4
j=j+1
8
T(i,j)
i=i+1
j<=N
10
да
нет
j=1
9
j=j+1
12
6
7
начало