Új hozzászólás Aktív témák

• #3431 Béló aktív tag

  Új Válasz 2008-09-21 17:45:58 #3431

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Béló

  aktív tag

  hello
  sajnos nincsen semmi jártasságom a programozásban de kaptam egy feladatot amit el kell végeznem, elaladtam benne és gondoltam megkérdezem itt is hátha vki tud segiteni:

  excel alatt visual basic programnál ha beirom a makroba ezt:
  Sub fuggv()
  a = InputBox("add a=?")
  b = InputBox("add b=?")
  f(a) = a ^ 4 - 81
  f(b) = b ^ 4 - 81
  lep = 2
  Do
  m = (a + b) / 2
  f(m) = m ^ 4 - 81
  Cells(lep, 1) = a: Cells(lep, 2) = b
  lep = lep + 1
  If f(a) * f(m) < 0 Then
  b = m: f(b) = f(m)
  Else: a = m: f(a) = f(m)
  End If
  Loop Until Abs(f(m)) < 0.01

  End Sub

  akkor miért irja ki ha futtatni akarom hogy Compile error: Sub or function not definied?? (és sárgán kijelöli a sub fuggv-t, feketén pedig a 4. sor beli f(a)=a^4-81-et)

  Az eredeti feladat az volt hogy a x^4-81=0 egyenlethez kellett irni egy programot ami az egyenlet gyökeit intervallum-felező módszerrel határozza meg.

  előre is köszönöm bárki segitségét !

Új hozzászólás Aktív témák