Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Ада и другие языки _ VBA
Автор: Бяляво4ка 16.06.2010 22:28
условие: заданы элементы m1,m2...m20. преобразование:m20,m19...м11,m1,m2...m10.
Sub lab6()
Const N = 20
Dim Z As Double, Left As Double, Left1 As Double
Dim A(1 To 20) As Double
Dim I As Integer
For I = 1 To 20
A(I) = InputBox("Ввод числа для" & _
" элемента (" & I & ")")
Next I
\\разворот массива
For I = 1 To N \ 2
Z = A(I)
A(I) = A(UBound(A) - I + 1)
A(UBound(A) - I + 1) = Z
Next i
\\помогите преобразовать 
точнее поставить м1, м2... между м11 и м10
Автор: Бяляво4ка 16.06.2010 23:40
Код
Sub lab()
Const N = 20
Dim Z As Double
Dim A(1 To 20) As Double
Dim I As Integer
For I = 1 To 20
A(I) = InputBox("Ввод числа для" & _
" элемента (" & I & ")")
Next I
\\разворот массива
For I = 1 To N \ 2
Z = A(I)
A(I) = A(UBound(A) - I + 1)
A(UBound(A) - I + 1) = Z
Next I
\\перестановка элементов
For I = 11 To 11 + N / 4
Z = A(I)
A(I) = A(20 - I + 11)
A(20 - I + 11) = Z
Next I
\\вывод
For I = 1 To 20
MsgBox A(I)
Next I
End Sub
Const N = 20
Dim Z As Double
Dim A(1 To 20) As Double
Dim I As Integer
For I = 1 To 20
A(I) = InputBox("Ввод числа для" & _
" элемента (" & I & ")")
Next I
\\разворот массива
For I = 1 To N \ 2
Z = A(I)
A(I) = A(UBound(A) - I + 1)
A(UBound(A) - I + 1) = Z
Next I
\\перестановка элементов
For I = 11 To 11 + N / 4
Z = A(I)
A(I) = A(20 - I + 11)
A(20 - I + 11) = Z
Next I
\\вывод
For I = 1 To 20
MsgBox A(I)
Next I
End Sub
зделала
может кому пригодится ^^