Составить программу для вычисления значений функции F(x) на отрезке [а, b] с шагом h.

@AYA · Регистрация: 12.12.2010

Студворк — интернет-сервис помощи студентам

Привет всем!!!! Помогите кто чем пожет. Нужно решить задачку: Составить программу для вычисления значений функции F(x) на отрезке [а, b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. F(x)= 2*cos(x^0.5)=0.5

Немного подсказали,но почему то выдает ошибку...не пойму в чем ошибка...Вот что у меня получилось:

Sub F()
Dim a As Double
Dim b As Double
Dim c As Double
Dim i As Double

a = 0
b = 0
h = 0
a = Cells(1, 2)
b = Cells(2, 2)
h = Cells(3, 2)
i = 5
If a = b Then
MsgBox ("Ìàêðîñ ïðåðâàí: êîíöû îòðåçêà ñîâïàäàþò")
End
End If
If h = 0 Then
MsgBox ("Ìàêðîñ ïðåðâàí: çíà÷åíèå h íå äîëæíî áûòü ðàíûì 0")
End
End If
Do While a < b
Cells(i, 1) = a
Cells(i, 2) = 2 * Cos(a ^ 0.5) + 0.5
a = a + h
i = i + 1
Loop
End Sub

@YuraAAA · 12.12.2010, 13:33

Всё правильно написано, должно работать

@AYA · 12.12.2010, 14:43 **[ТС]**

Спасибо

.....
Но у меня есть еще одна просьба,не могли бы Вы мне помочь написать алгоритм к этой программе и описание переменных!!
Буду очень благодарна за помощь))))))))))))))

@AYA 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 3
		1
	Составить программу для вычисления значений функции F(x) на отрезке [а, b] с шагом h. 12.12.2010, 12:43. Показов 3369. Ответов 2 Метки нет (Все метки) Привет всем!!!! Помогите кто чем пожет. Нужно решить задачку: Составить программу для вычисления значений функции F(x) на отрезке [а, b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. F(x)= 2cos(x^0.5)=0.5 Немного подсказали,но почему то выдает ошибку...не пойму в чем ошибка...Вот что у меня получилось: Sub F() Dim a As Double Dim b As Double Dim c As Double Dim i As Double a = 0 b = 0 h = 0 a = Cells(1, 2) b = Cells(2, 2) h = Cells(3, 2) i = 5 If a = b Then MsgBox ("Ìàêðîñ ïðåðâàí: êîíöû îòðåçêà ñîâïàäàþò") End End If If h = 0 Then MsgBox ("Ìàêðîñ ïðåðâàí: çíà÷åíèå h íå äîëæíî áûòü ðàíûì 0") End End If Do While a < b Cells(i, 1) = a Cells(i, 2) = 2 Cos(a ^ 0.5) + 0.5 a = a + h i = i + 1 Loop End Sub 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	12.12.2010, 13:33	2
	Всё правильно написано, должно работать 0

@AYA 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 3
	12.12.2010, 14:43 [ТС]	3
	Спасибо..... Но у меня есть еще одна просьба,не могли бы Вы мне помочь написать алгоритм к этой программе и описание переменных!! Буду очень благодарна за помощь)))))))))))))) 0

Опции темы