Visual Basic

Тема в разделе "Другие языки", создана пользователем VeguD, 25 май 2008.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. VeguD

    VeguD Создатель

    Регистр.:
    18 фев 2008
    Сообщения:
    10
    Симпатии:
    0
    Поскольку этот раздел по программированию, думаю я могу разместить тут эту тему.
    Очень нужна помощь в этом языке программирования.
    Помогите решить задачу:
    дан массив. любой. допустим 10.
    Нужно найти максимальную сумму трех подряд чисел. Т.е. 1ое+2ое+3ие или 2ое + 3ие + 4ое и т.д.
    Прошу помощи
     
  2. Лариса

    Лариса Читатель

    Заблокирован
    Регистр.:
    21 сен 2007
    Сообщения:
    390
    Симпатии:
    128
    вот код, приязанный к кнопке.
    вывод делала прямо на текущую форму. думаю с интерфейсом разберешься сам.
    так, конечно, оставлять нельзя.

    комменты расставлять для тебя некогда.
    проверка ввода количесства и защита от ошибок не делалась.

    PHP:
    Private Sub Command1_Click()

    Dim ijkMaxNumSum  As Integer
    Dim Number
    () As Integer ' ìàññèâ ñëó÷. ÷èñåë è ìàññèâ ÷àñòè÷íûõ ñóìì
    N = InputBox("Ââåäèòå êîëè÷åñòâî ÷èñåë >3")
    ReDim Number(1 To N) As Integer
        For i = 1 To N
            Number(i) = Int(Rnd * 10)
            Print Number(i);
        Next i
        Print
    SumMax = Number(1) + Number(2) + Number(3): MaxNum = 1
        For i = 2 To N - 2
            Sum = Number(i) + Number(i + 1) + Number(i + 2)
            If Sum > SumMax Then SumMax = Sum: MaxNum = i
        Next i
       Print "-----------"
       Print SumMax, MaxNum
    End Sub
     
Статус темы:
Закрыта.