Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2012, 13:15   #1
sVa112
Пользователь
 
Регистрация: 29.09.2012
Сообщений: 10
По умолчанию Вычислить значение функции (задание)

Для Х из предоставленного диапазона (шаг выбрать самостоятельно) вычислить значение функции, Результат нужно вывести в виде таблицы.

Помогите ввести "y" и "Formula"

Sub Таблица()
Dim x As Single, y As Single, i As Integer
Dim xn As Single, xk As Single, h As Single
Dim s As Single, b As Single, n As Integer
Dim eps As Integer
xn = InputBox("Введите начальное значение аргумента x")
xk = InputBox("Введите конечное значение аргумента x")
h = InputBox("Введите шаг")
Range("A1").Value = "i"
Range("B1").Value = "X[i]"
Range("C1").Value = "Y=f(X[i])"
Range("D1").Value = "S(X[i])"
Range("E1").Value = "fabs(s-y)"
i = 2
eps = 40
n = 0
For x = xn To xk Step h
y =
Cells(i, 1).Value = (i - 1)
Cells(i, 2).Value = x
Cells(i, 3).Value.Formula =
Cells(i, 4).Value = s
Cells(i, 5).Value = b
n = n + 1
i = i + 1
Next x
End Sub
sVa112 вне форума Ответить с цитированием
Старый 15.12.2012, 11:06   #2
sVa112
Пользователь
 
Регистрация: 29.09.2012
Сообщений: 10
По умолчанию

У когото есть идеи?)
sVa112 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование подпрограммы-функции: Вычислить значение функции (Турбо паскаль) RealUnited Паскаль, Turbo Pascal, PascalABC.NET 1 05.12.2012 20:34
Вычислить значение функции Роберт92 Microsoft Office Excel 2 03.04.2012 10:16
Вычислить значение функции Axsel145 Помощь студентам 2 24.09.2011 23:22
вычислить значение функции алексей2011 Паскаль, Turbo Pascal, PascalABC.NET 1 02.03.2011 09:38
Вычислить значение функции Dilex Помощь студентам 1 04.11.2010 23:24