поиск по ключу (наверное)

Тема в разделе "Visual Basic", создана пользователем -, 4 июн 2009.

  1. Гость

    найти и напечатать индексы и значения элементов, превышающих величину R. (вектор С размерности N)
     
  2. Jumpy

    Jumpy Гость

    sub sss()
    dim a as integer
    dim N as integer
    dim R as double
    dim stroka as string
    N = 10
    R = 100
    stroka = ""

    for a = 1 to N
    if C(a) > R then
    stroka = stroka & a & " "
    end if
    next a

    call msgbox("Элементы превыщающие величину " & R & " имеют индексы: " & stroka)
    end sub

    'массив C должен быть задан и иметь размерность N или больше.
    'N и R указываются в коде.
     
Загрузка...

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