Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Visual Basic] является ли заданная функция y=f(x)

Автор: Len4ik 28.5.2008, 18:29

Численно убедиться, является ли заданная функция y=f(x) четной или нечетной на заданном отрезке -a<=x<=a. Выполнить проверку для функций: y=x^4 , y=tg(x) , y=e^x, вычесляя их на отрезке [-5;5] с шагом 0.1.

Помогите пожалуйста написать код. smile

Автор: Akina 28.5.2008, 18:49

Код


even=true
odd=true
for arg = pitch to range step pitch
  positive = func(arg)
  negative = func(-arg)
  if positive + negative <> 0 then odd = false
  if positive - negative <> 0 then even = false
next
if even then msgbox "Function is even."
elseif odd then msgbox "Function is odd."
else msgbox "Function is neither even nor odd."
end if

Автор: Len4ik 31.5.2008, 19:16

Akina большое спасибо за помощь! smile