Словесное описание алгоритмов
Добавлено: 15 дек 2009, 09:04
Здрасвтвуйте форум. У меня есть несколько решений задач в VBA , но мне нужно их словесное объяснение, чтобы можно было объяснить другому человеку. Надеюсь на вашу помощь.
1. http://clip2net.com/page/m0/2985442
2. Все компоненты целочисленного вектора a с нечетными номерами заменить на величину ai+i.
3. Получить матрицу, симметричную относительно побочной диагонали из заданной квадратной матрицы размерности N.
4.Подсчитать количество гласных букв в заданном слове.
1. http://clip2net.com/page/m0/2985442
Код: Выделить всё
n=InputBox("введите n")
res = 0
for i = 1 to n
res = res+i^2
next i
MsgBox(res)
Код: Выделить всё
n=InputBox("Введите длину вектора n")
Dim vec(1 to n) as Variant
for i = 1 to n
vec(i) = InputBox("Введите " & i & "-ю координату вектора")
Next i
For i = 1 to ubound(vec)
vec(i) = vec(i)+i
i = i + 1
next i
Код: Выделить всё
Sub zadacha3() 'матрица находится в книге на листе1, начиная с ячейки А1
n = InputBox("введите n - размерность матрицы")
For i = 2 To n
For j = n - i + 2 To n
temp = Cells(i, j).Value
Cells(i, j).Value = Cells(n - j + 1, n - i + 1).Value
Cells(n - j + 1, n - i + 1).Value = temp
Next j
Next i
End Sub
Код: Выделить всё
Sub zadacha3() 'матрица находится в книге на листе1, начиная с ячейки А1
n = InputBox("введите n - размерность матрицы")
For i = 2 To n
For j = n - i + 2 To n
temp = Cells(i, j).Value
Cells(i, j).Value = Cells(n - j + 1, n - i + 1).Value
Cells(n - j + 1, n - i + 1).Value = temp
Next j
Next i
End Sub