Задачка в Бейсике с массивами, помогите решить задачку...

[Guest]

помогите пожалуйста решить задачу....т.к. пока в информатике я практически полный 0...(

текст задачи: Дан вектор. Из него построить другой вектор, в котором нет нулевых элементов из первого.

или подскажите ход решения...очень прошу...
заранее спасибо))

 

[vital]

Ну значит так. Берете ветор, и просматриваете все его элементы, если каждй очередной не 0 - добавляете его в другой вектор.

 

[Guest]

а можно немного поподробней????

 

[Tihon]

помогите пожалуйста решить задачу....т.к. пока в информатике я практически полный 0...(

текст задачи: Дан вектор. Из него построить другой вектор, в котором нет нулевых элементов из первого.

или подскажите ход решения...очень прошу...

Если я правильно понимаю, вектором Вы называете массив? Тогда примерно так.

Sub Primer()
Dim Vector_1 As Variant
Dim Vector_2 As Variant
Dim VectorIzm As Integer		 ' Переменная - число элементов первого массива (вектора)

Vector_1 = Array(0, 1, 2, 0, 4, 5, 6, 0, 8, 9, 0) ' Это исходный вектор
VectorIzm = UBound(Vector_1)

ReDim Vector_2(1 To 1)
For iVector_1 = 1 To VectorIzm
If Vector_1(iVector_1) <> 0 Then
iVector_2 = iVector_2 + 1
ReDim Preserve Vector_2(1 To iVector_2)
Vector_2(iVector_2) = Vector_1(iVector_1)
End If
Next iVector_1

End Sub