Добавил:
til1231
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:функция / Новый текстовый документ (2)
.txt Sub prog1()
Dim a() As Integer
Cells.Clear
n = InputBox("Введите N десятков") 'Вводим N с клавиатуры
ReDim a(n * 10) As Integer 'Задаем массив a
For i = 1 To n * 10
a(i) = Rnd * 10 + 10 'Заполняем массив и ячейки случайными числами от 10 до 20
Cells(i, 1) = a(i)
Next i
For i = 2 To n * 10
Cells(i, 3) = z(Cells(i, 1), Cells(i - 1, 1), Cells(i + 1, 1)) 'Проверка является ли число членом прогрессии
Next i
k = 0
For i = 1 To n * 10
If Cells(i, 3) = "Является" Then
Cells(i, 4) = 1
Cells(i - 1, 4) = 1
Cells(i + 1, 4) = 1
End If
Next i
For i = 1 To n * 10
If Cells(i, 4) = 1 Then
k = k + 1
End If
Next i
Cells(1, 5) = k
End Sub
Dim a() As Integer
Cells.Clear
n = InputBox("Введите N десятков") 'Вводим N с клавиатуры
ReDim a(n * 10) As Integer 'Задаем массив a
For i = 1 To n * 10
a(i) = Rnd * 10 + 10 'Заполняем массив и ячейки случайными числами от 10 до 20
Cells(i, 1) = a(i)
Next i
For i = 2 To n * 10
Cells(i, 3) = z(Cells(i, 1), Cells(i - 1, 1), Cells(i + 1, 1)) 'Проверка является ли число членом прогрессии
Next i
k = 0
For i = 1 To n * 10
If Cells(i, 3) = "Является" Then
Cells(i, 4) = 1
Cells(i - 1, 4) = 1
Cells(i + 1, 4) = 1
End If
Next i
For i = 1 To n * 10
If Cells(i, 4) = 1 Then
k = k + 1
End If
Next i
Cells(1, 5) = k
End Sub
Соседние файлы в папке функция