Заполнить вектор значениями положительных элементов вектора 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д