While Schleifen Problem

Das liegt an dem nicht initialisierten Schieberegister. Beim ersten Aufruf beginnt die Zählung mit Null, bei den folgenden Aufrufen wird die Zählung dort fortgesetzt, wo sie aufgehört hatte.
Also: Null auf der linken Seite anschließen.
Ein weitere Unsicherheit, die hier aber wohl nicht relevant ist: der Vergleich zweier Reeller Zahlen auf Gleichheit kann schief gehen, und zwar wegen ihrer Machinenungenauikeit in einer Kommastelle ganz weit hinten.