VBNet - Форум - массив целых

Вопрос: массив целых Добавлено: 23.05.10 21:28

Автор вопроса: Dmitryi | ICQ: 339242625

Создать массив целых (использовать цикл For…Next) из 30 элементов; m(i) = i^3 + 15. Вычислить сумму первых 18 элементов. Выбрать правильный ответ:
                23679
   18981
   23765

Мой вариант:
For i = 1 To 18
m(i) = i ^ 3 + 15
i = i + 1
Next i

Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #1	Добавлено: 23.05.10 22:18
	For i = 1 To 18 m(i) = i ^ 3 + 15 i = i + 1 Next i 1. Этим кодом ты перебираешь все элементы от 1 до 18. А, судя по ответам, предполагается, что нумерация массива - с нуля. То есть, не от 1 до 18, а от 0 до 17. 2. И присваиваешь им значения i^3+15. А тебе нужно 30 элементов. 3. Зачем тебе i = i + 1? Это оператор For итак за тебя сделает. 4. Тут все правильно) Dim m(0 To 29) As Long 'Объявляем массив целых чисел (As - указание типа, Long - собственно, тип). Нумерация с 0. Dim Sum As Long 'Сумма элементов 'Заполняем массив For i = 0 To 29 'Перебираем все числа от 0 до 29 m(i) = i^3 + 15 'Присваиваем элементу массива под очередным номером значение Next i 'Вычисляем сумму элементов Sum = 0 'Обнуляем сумму For i = 0 To 17 'Перебираем числа от 0 до 17 Sum = Sum + m(i) 'Прибавляем к сумме очередной элемент массива под указанным номером Next i MsgBox Sum 'Выводим окно сообщения, показывающее вычисленную сумму. Ответить

Номер ответа: 2 Автор ответа: Dmitryi ICQ: 339242625 Вопросов: 13 Ответов: 27	Профиль \| \| #2	Добавлено: 23.05.10 22:21
	Большое спасибо за помощь. Ответить

Страница: 1 |