Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Составьте функцию, принимающую значение True, если все элементы вектора имеют значения больше некоторой заданной величины, или
значение False – в противном случае. Применяя эту функцию для каждого из двух заданных векторов СТ и DT, измените значение каждого элемента
вектора на обратное, если окажется, что все элементы вектора имеют исходное значение больше H. В противном случае выведите сообщение: «Условие для C
T не выполнено», или «Условие для DT не выполнено».
Public Class Form1
Public n, h As Integer
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim a() As Single, b() As Single
TextBox1.Clear()
n = InputBox _
("Задайте количество ячеек векторов а и б")
TextBox1.AppendText("Количество ячеек n = " & n & vbCrLf)
h = InputBox _
("Задайте порог")
TextBox1.AppendText("Порог h= " & h & vbCrLf)
ReDim a(n), b(n)
InputVector(a, "a")
TextBox1.AppendText("Вектор a" & vbCrLf)
OutputVector(a, TextBox1)
InputVector(b, "b")
TextBox1.AppendText("Вектор b" & vbCrLf)
OutputVector(b, TextBox1)
If Упр(a, h) = True Then
TextBox1.AppendText("Измененный вектор a." & vbCrLf)
Изм(a, "а")
OutputVector(a, TextBox1)
Else
TextBox1.AppendText("Все элементы вектора a меньше заданного порога." & vbCrLf)
End If
If Упр(b, h) = True Then
TextBox1.AppendText("Измененный массив b." & vbCrLf)
Изм(b, "b")
OutputVector(b, TextBox1)
Else
TextBox1.AppendText("Все элементы вектора b меньше заданного порога." & vbCrLf)
End If
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Label1.Click
End
End Sub
Private Function Упр(ByVal x() As Single, ByVal Порог As Single) As Boolean
Dim i As Integer
Упр = True
For i = 1 To x.GetUpperBound(0)
If x(i) <= h Then
Упр = False
End If
Next
End Function
Private Sub Изм(ByRef x() As Single, Optional ByVal ArrayName As String = "элемент")
Dim i As Integer
For i = 1 To x.GetUpperBound(0)
x(i) = x(i) * (-1)
Next
End Sub
Private Sub InputVector(ByRef x() As Single, Optional _
ByVal ArrayName As String = "элемент")
Dim i As Integer
For i = 1 To x.GetUpperBound(0)
x(i) = InputBox(ArrayName & "(" & i & ") = ?")
Next
End Sub
Private Sub OutputVector(ByVal x() As Single, _
ByVal y As TextBox)
Dim i As Integer
For i = 1 To x.GetUpperBound(0)
y.AppendText(x(i) & vbTab)
Next
y.AppendText(vbCrLf)
End Sub
End Class