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

Тема в разделе "Visual Basic", создана пользователем -, 27 сен 2010.

  1. Гость

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

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

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

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.468
    Симпатии:
    27
    Ну значит так. Берете ветор, и просматриваете все его элементы, если каждй очередной не 0 - добавляете его в другой вектор.
     
  3. Гость

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

    Tihon Гость

    Если я правильно понимаю, вектором Вы называете массив? Тогда примерно так.
    Код (LotusScript):
    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
     
Загрузка...
Похожие Темы - Задачка Бейсике массивами
  1. Hehabr
    Ответов:
    1
    Просмотров:
    482
  2. dmalsh
    Ответов:
    1
    Просмотров:
    1.005
  3. varenbko
    Ответов:
    0
    Просмотров:
    1.040
  4. Fillya
    Ответов:
    0
    Просмотров:
    1.091
  5. ferrum
    Ответов:
    1
    Просмотров:
    1.118

Поделиться этой страницей