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

@Futbolist12 · Регистрация: 10.02.2010

Author24 — интернет-сервис помощи студентам

Преобразовать массив A(i) в массив B(i) так, чтобы в новом массиве каждый элемент получался бы как сумма себя и своего соседа впереди. Последний элемент суммируется с первым. N - не менее 10.

@Linoge · 23.05.2012, 09:43

vb не поддерживает термина бесконечность

Потому как если каждый элемент равен себе + соседа, и последовательность замкнута то она будет стремится к бесконечности.
Задание скорее выглядит как:
"в новом массиве каждый элемент получался бы как сумма элементов массива A на i и i+1 месте "

Visual Basic

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

SoftIce · 23.05.2012, 10:15

Я бы сделал проще

Visual Basic

Private Sub Command1_Click()
Dim a() As Integer, b() As Integer, i As Integer, n As Integer
n = InputBox("введите n", , 10)
ReDim a(1 To n), b(1 To n)
Cls
 
For i = 1 To n
    a(i) = Int(Rnd() * 20 - 5)
    Print a(i) & vbTab;
Next
 
Print
b(n) = a(n) + a(1)
For i = 1 To n - 1
    b(i) = a(i) + a(i + 1)
Next
 
For i = 1 To n
    Print b(i) & vbTab;
Next
 
End Sub

@Linoge · 23.05.2012, 11:27

Не по теме:

SoftIce, те же яйца только в изометрии:)

@Futbolist12 · 23.05.2012, 13:41 **[ТС]**

Спасибо! Только вот что-то последний элемент с первым не складывается)

@Linoge · 23.05.2012, 14:37

17 строка b(n - 1) = a(n - 1) + a(0) - так что все должно работать

@Futbolist12 · 23.05.2012, 14:56 **[ТС]**

Всё, разобрался. Спасибо)

@Futbolist12 4 / 4 / 0 Регистрация: 10.02.2010 Сообщений: 87
		1
	Преобразовать массив так, чтобы каждый элемент был как сумма себя и своего соседа впереди 22.05.2012, 22:46. Показов 711. Ответов 6 Метки нет (Все метки) Преобразовать массив A(i) в массив B(i) так, чтобы в новом массиве каждый элемент получался бы как сумма себя и своего соседа впереди. Последний элемент суммируется с первым. N - не менее 10. 0

@Linoge
	23.05.2012, 11:27 #4
	Не по теме: SoftIce, те же яйца только в изометрии:) 1

@Futbolist12 4 / 4 / 0 Регистрация: 10.02.2010 Сообщений: 87
	23.05.2012, 13:41 [ТС]	5
	Спасибо! Только вот что-то последний элемент с первым не складывается) 0

@Linoge 3199 / 1910 / 323 Регистрация: 25.10.2011 Сообщений: 5,557
	23.05.2012, 14:37	6
	17 строка b(n - 1) = a(n - 1) + a(0) - так что все должно работать 0

@Futbolist12 4 / 4 / 0 Регистрация: 10.02.2010 Сообщений: 87
	23.05.2012, 14:56 [ТС]	7
	Всё, разобрался. Спасибо) 0