Sub Integral()
Schreiben Sie ein Programm zur numerischen Integration einer Funktion mit einer Variablen "x". Die Zellen eines Arbeitsblattes enthalten A1: die untere Integralgrenze, A2: die obere Integralgrenze, A3: die Schrittweite, A4: x (muss vom Programm in einer Schleife bestimmt werden), A5: die Funktion als Formel. Das Integral soll in einer MsgBox ausgegeben werden.
Dim obereIntegralgrenze#, AnzahlTeilintervalle#, x#, Breite#, irgendwas# 'deklariert als double
Dim Laufvariable1% 'deklariert als integer
Dim Funktionsgleichung$ 'deklariert als string
Dim Ergebnis! 'deklariert als single
'eingabe der benötigten werte
uIntgrenze = InputBox("untereIntegralgrenze")
oIntgrenze = InputBox("obereIntegralgrenze")
Anzinterv = InputBox("AnzahlTeilintervalle")
Fnktgl = InputBox("Funktionsgleichung") 'z.B (=4*x+6)
'
Cells(1, 1) = uIntgrenze
Cells(2, 1) = oIntgrenze
Cells(3, 1) = Anzinterv
Cells(5, 1) = Fnktgl
Breite = (oIntgrenze - uIntgrenze) / Anzinterv
For Laufvariable1 = 1 To Anzinterv 'laufindex
Vari = uIntgrenze + (Laufvariable1 * Breite) ' ZelleA4 x
Cells(4, 1) = x
irgendwas = Cells(5, 1)
irgendwas = irgendwas + Cells(6, 1)
Call Zwischenergebnis(irgendwas)
Next
Ergebnis = Breite * Cells(6, 1)
MsgBox (Ergebnis)
End Sub
Sub Zwischenergebnis(irgendwas)
Cells(6, 1) = irgendwas
End Sub
Habe mich an der Aufgabe versucht, jedoch beziehe ich weder meine Werte aus der Tabelle, noch gibt mir das Programm stets die gleichen Ergebnisse aus.
Vielen Dank nochmals im Vorraus
Jan100 |