Даны целые числа a1,…a50. Получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены.
Ответы на вопрос
Ответил Аноним
1
VBА Microsoft Excel.
Массив а заполняется с использованием случайных чисел. Результаты выводятся на первый лист рабочей книги.
Option Base 1
Sub aaa()
Dim a(50), b(50)
Randomize Timer
Cells(1, 1) = "a(i)"
Cells(1, 2) = "b(i)"
For i = 1 To 50
a(i) = Int(201 * Rnd - 100)
b(i) = 2 * a(i)
Cells(i + 1, 1) = a(i)
Cells(i + 1, 2) = b(i)
Next i
End Sub
Массив а заполняется с использованием случайных чисел. Результаты выводятся на первый лист рабочей книги.
Option Base 1
Sub aaa()
Dim a(50), b(50)
Randomize Timer
Cells(1, 1) = "a(i)"
Cells(1, 2) = "b(i)"
For i = 1 To 50
a(i) = Int(201 * Rnd - 100)
b(i) = 2 * a(i)
Cells(i + 1, 1) = a(i)
Cells(i + 1, 2) = b(i)
Next i
End Sub
Gulnara1993:
а если это же на псевдокоде как это будет?
1. Разработать (написать) алгоритм решение задачи на псевдокоде.
2. Построить блок-схему алгоритма решения задачи.
3. Создать процедуру на языке VBA, по разработанному алгоритму решения задачи.
4. Проверить работу программы тестами, указав в отчете входные и выходные данные для каждого теста.
ВОТ ЧТО НАПИСАНО В ЗАДАНИИ
Новые вопросы
Математика,
2 года назад
Геометрия,
2 года назад
Английский язык,
2 года назад
Русский язык,
2 года назад
Математика,
7 лет назад
Физика,
7 лет назад