Eulersche Zahl e berechnen                               zurück

Dieses kleine Programm berechnet die Eulersche Zahl e über die unendliche Reihe:

e = 1 + 1 / 1 ! + 1 /2 ! + 1/3 !  + 1/4!  +  ...... + 1/n !

Hinter dem Befehl    e Berechnen  steht folgender Code:

PUBLIC SUB Button1_Click()

DIM E AS Float

DIM QF AS Float

DIM F AS Integer

DIM K AS Integer

E = 1

F = 1

FOR K = 1 TO 15

• F = F * K

• QF = CFloat(1)/F

• E = E + QF

• TextArea1.Text = TextArea1.Text & E & Chr$(10) & Chr$(13)

NEXT

END

Beim Teilen muß man aufpassen , dass man die richtigen Ergebnisse erhält. Abhilfe schafft der Befehl Cfloat.

Link zur Eulerschen Zahl

Link zur Fakultätsberechnung  Symbol ! = Ausrufezeichen

Allgemeiner Basic Code:

E = 1 : F = 1

For K = 1 to 10

• F = F*K

• E = E + 1/F

• Print E

Next K