Question

Язык программирования: VBA.

Задание: сформировать массив, указанный на первом изображении, посредством способа, указанного на втором. Значения в программе должны браться из файла данных.

Answer 1

Макрос для любого листа рабочей книги

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

65fe9e4ef3f4ca209a09a66e9f19e1fd.txt