Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Найти значение интеграла и начертить график https://www.cyberforum.ru/visual-basic/thread582976.html
нужно найти значение интеграла и начертить график. помогите, пожалуйста...
VB Перевод запрошенной массы тела в килограммах в выбранную единицу массы
Создать приложение, реализующее выбор пользователем единицы массы (килограмм, миллиграмм, грамм, тонна, центнер) и перевода запрошенной массы тела в килограммах в выбранную единицу массы.
Исправить код в БД access (авторизация в программе) VB
Моя БД называется "Склад" на форме создала ComboBox (раскрывающийся список) Хотелось бы ,чтобы при выборе одного из элементов списка, отображались оределенные кнопки со ссылками. Что-то с циклом у...
VB Ввести фамилию, имя и отчество и вывести фамилию и инициалы Ввести фамилию, имя и отчество и вывести фамилию и инициалы. https://www.cyberforum.ru/visual-basic/thread582071.html
VB Найти сумму элементов каждой строки https://www.cyberforum.ru/visual-basic/thread581933.html
Найти сумму элементов каждой строки. нужно доделать, что б были процедуры и функции: Private Sub Command1_Click() Dim A() As Integer, summ() Dim n As Integer, i As Integer, j As...
VB Подготовить список сотрудников организации, получающих наибольшую зарплату
Подготовить список сотрудников организации, получающих наибольшую зарплату. решите кому не трудно...пожалуйста...очень поможете
Найти элементы массива Z, которые равны попарному произведению VB
1. Даны массивы: X из 4 элементов: X(1)=2.5, X(2)=4.6, X(3)=5.6, X(4)=8.4, Y из 4 элементов: Y(1)=1, Y(2)=2.5, Y(3)=3.45, Y(4)=6.3. Найти элементы массива Z, которые равны попарному произведению...
VB При открытии второй формы в объекте OLE отоброжать документ 1.doc, и при нажатии кнопки печатался Всем привет!!! ПРОЭКТ в VB6. Имеется 2 формы: В первой форме по результатам работы создается вордовский файл "1.doc" и сохраняется в этой же папке где и весь проект. Во второй форме существует... https://www.cyberforum.ru/visual-basic/thread581103.html
VB Построить матрицу A(n,3), столбцами которой есть вектора X(n) Y(n) , Z(n), упорядоченные по возрастанию https://www.cyberforum.ru/visual-basic/thread581098.html
Задание: построить матрицу A(n,3) столбцами которой есть вектора X(n) Y(n) , Z(n) упорядоченны по возрастанию Вот мой код, не факт что верно Dim a() As Single, i As Integer, n As Integer Dim S As...
VB Добавить форму ввода имя и фамилии что бы в конце теста выводилась, кто прошел тест Помогите Добавлено через 1 минуту SoftIce, Помогите я в vb полный нуб, взял ваш исходник с тестом , разобрался все работает, но мне нужно еще добавить форму ввода имя и фамилии что бы в конце... https://www.cyberforum.ru/visual-basic/thread581046.html
Linoge
Эксперт Hardware
2551 / 1845 / 312
Регистрация: 25.10.2011
Сообщений: 5,384
23.05.2012, 09:43 0

Преобразовать массив так, чтобы каждый элемент был как сумма себя и своего соседа впереди

23.05.2012, 09:43. Просмотров 526. Ответов 6
Метки (Все метки)

Ответ

vb не поддерживает термина бесконечность
Потому как если каждый элемент равен себе + соседа, и последовательность замкнута то она будет стремится к бесконечности.
Задание скорее выглядит как:
"в новом массиве каждый элемент получался бы как сумма элементов массива A на i и i+1 месте "
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
Do
n = InputBox("ââåäèòå n", , 10)
Loop Until n >= 10
ReDim a&(n - 1), b&(n - 1)
t = ""
For i = 0 To n - 1
    a(i) = Int(Rnd() * 20 - 5)
    t = t & a(i) & vbTab
Next
Text1 = t
t = ""
For i = 0 To n - 2
    b(i) = a(i) + a(i + 1)
    t = t & b(i) & vbTab
Next
b(n - 1) = a(n - 1) + a(0)
t = t & b(n - 1)
Text2 = t
End Sub


Вернуться к обсуждению:
Преобразовать массив так, чтобы каждый элемент был как сумма себя и своего соседа впереди
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2012, 09:43
Готовые ответы и решения:

Заполнить массив из 10 элементов, чтобы каждый элемент был равен сумме делителей своего номера
Заполнить массив из 10 элементов каждый элемент был равен сумме делителей своего номера

Сформировать массив так, чтобы каждый элемент, начиная с третьего, был равен произведеннию двух предыдущих
uses crt; var a:array of integer; i,n:integer; begin writeln (' Введите длину массива');...

Сформировать массив так, чтобы каждый последующий элемент, начиная с третьего, был равен разности двух предыдущих
Напишите пожалуйста программу формирования и вывода массива произвольного размера так, чтобы каждый...

Как сделать так, чтобы каждый элемент ListBoxItem был растянут на всю ширину ListBox
Я бы хотел сделать так, чтобы каждый элемент ListBoxItem был растянут на всю ширину ListBox. Справа...

Сформировать матрицу так, чтобы каждый последующий элемент начиная со ворого был больше придыдущего на 5
написать программу формирования и вывода двумерного массива произвольного размера так, чтобы каждый...

6
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.