|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.04.2009, 00:15 | #1 |
Пользователь
Регистрация: 30.11.2008
Сообщений: 32
|
Visual Basic
Нужно заполнить заполнить вектор H суммами значений каждых трёх элементов одномерного массива F в порядке их расположения. Размерность массива произвольная.
Вот код: Private Sub Command1_Click() Dim m As Integer Dim F() As Integer, E() As Integer Dim i As Integer, j As Integer m = InputBox("Введите размерность", "размерность") ReDim F(m) ReDim E(m / 3) For i = 0 To m F(i) = InputBox("f" & i) Next Print "исходная матрица" For i = 0 To m Print F(i); " "; Next j = 0 For i = 0 To m Step 3 E(j) = F(i) + F(i + 1) + F(i + 2) j = j + 1 Next Print "" Print "Новая матрица" For i = 0 To j - 1 Print E(i); " "; Next Проблема в том, что по данному коду можно сосчитать только если размерность массива кратна трем, а нужно сделать так, например, что если я задам размерность 5, то программа вывела бы только сумму первых трех элементов, а остальные 2 элемента в расчет не брала. Последний раз редактировалось asd48; 21.04.2009 в 00:21. |
21.04.2009, 11:53 | #2 |
Software Engineer
Участник клуба
Регистрация: 07.04.2007
Сообщений: 1,618
|
Какой нафиг бейсик? Вы название раздела видели?
Мужество есть лишь у тех, кто ощутил сердцем страх, кто смотрит в пропасть, но смотрит с гордостью в глазах. (с) Ария
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как перевести проект из Visual C++ 2003 в Visual C++ 2008? | iukash | Visual C++ | 8 | 17.04.2009 22:36 |
Visual c++ 2005 и Visual c++ 6 это разные версии или нет? | Руслантус | Свободное общение | 3 | 30.11.2007 19:42 |
Visual J# from Microsoft Visual Studio .NET | Flash_ | Общие вопросы по Java, Java SE, Kotlin | 2 | 28.12.2006 10:16 |