Язык программирования: VBA.
Задание: сформировать массив, указанный на первом изображении, посредством способа, указанного на втором. Значения в программе должны браться из файла данных.
Приложения:
![](https://st.uroker.com/files/c45/c45d3e5bd0931f6a4b21391d031244b6.jpg)
![](https://st.uroker.com/files/a01/a019985d4a5a7c935f9b46b61077a89b.jpg)
Ответы
Ответ дал:
0
Макрос для любого листа рабочей книги
Sub main()
Dim x(1 To 7) As Double
fn = "H:TempData.txt" 'Тут полный путь к файлу
f = FreeFile
Open fn For Input As #f
i = 1
Do Until i = 8
Input #f, x(i)
i = i + 1
Loop
Close #f
Cells(1, 1) = "x(i)"
Cells(2, 1) = "y(i)"
i = 1
Do
Cells(1, i + 1) = x(i)
Cells(2, i + 1) = Sqr(x(i)) * Exp(2 * x(i))
i = i + 1
Loop While i <= 7
End Sub
Sub main()
Dim x(1 To 7) As Double
fn = "H:TempData.txt" 'Тут полный путь к файлу
f = FreeFile
Open fn For Input As #f
i = 1
Do Until i = 8
Input #f, x(i)
i = i + 1
Loop
Close #f
Cells(1, 1) = "x(i)"
Cells(2, 1) = "y(i)"
i = 1
Do
Cells(1, i + 1) = x(i)
Cells(2, i + 1) = Sqr(x(i)) * Exp(2 * x(i))
i = i + 1
Loop While i <= 7
End Sub
Приложения:
Вас заинтересует
1 год назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад