Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная - VB

Узнай цену своей работы

Формулировка задачи:

Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная.
Что не так? Если начать заполнять вектор отрицательными значениями в результате выдает все нули.

Решение задачи: «Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная»

textual
Листинг программы
Private Sub Command1_Click()
Dim m As Integer, i As Integer
Dim a() As Single, c() As Single
m = InputBox("Введите размерность массива")
ReDim a(1 To m) 'здесь вы сами объявили вектор со всеми все нулями.
ReDim c(1 To m)
For i = 1 To m
  c(i) = InputBox("c(" & i & ")", "Ввод значений элементов массива C")
Next
Print "Исходный массив:"
For i = 1 To m
  Print Spc(4); "c(" & i & ") = " & Format(c(i), "0.00")
Next
For i = 1 To m
'  If c(i) = Abs(i) Then 'здесь сравниваете элемент вектора с модулем индекса (который всегда положителен)
  If c(i) > 0 Then
    a(i) = c(i)
  End If
Next
Print "Результат:"
For i = 1 To m
  Print Spc(4); Format(a(i), "0.00")
Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы