Ich möchte meine While Schleife an zwei Bedingungen knüpfen die in einem "Oder" Verhältnis zueinander stehen. Folgender Code:
Leider bricht er die Schleife nur bei der ersten Bedingung iter<10 ab. Aber bereits beim vierten bzw. fünften Durchlauf müsste er wegen der zweiten Bedingung die Schleife beenden, tut es aber nicht. Kann man eine While Schleife nicht an eine Oder Bedingung knüpfen?
Visual Basic-Quellcode
- Dim iter As Integer
- Dim phi, phi_alt, phi_neu, abbruch As Double
- iter = 1
- abbruch = 0.000000000001
- phi0=0.91392257542
- phi_alt = phi0
- While (iter < 10) Or ((phi_neu - phi) > abbruch)
- phi = phi_alt
- phi_neu = phi0 - (beta * Sin(2 * phi) + gamma * Sin(4 * phi) + delta * Sin(6 * phi) + epsilon * Sin(8 * phi))
- phi_alt = phi_neu
- iter = iter + 1
- Wend
- '0.916356819328
Leider bricht er die Schleife nur bei der ersten Bedingung iter<10 ab. Aber bereits beim vierten bzw. fünften Durchlauf müsste er wegen der zweiten Bedingung die Schleife beenden, tut es aber nicht. Kann man eine While Schleife nicht an eine Oder Bedingung knüpfen?
