|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.12.2012, 13:15 | #1 |
Пользователь
Регистрация: 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 |
15.12.2012, 11:06 | #2 |
Пользователь
Регистрация: 29.09.2012
Сообщений: 10
|
У когото есть идеи?)
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Использование подпрограммы-функции: Вычислить значение функции (Турбо паскаль) | 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 |