[richy]

Ist ja super dass ihr aufpasst. Ich benutze keinen printf Befehl sondern lass Maple einfach den Variablenwert mittels Variable; anzeigen. Und Maple und Strings ist net so doll, also hab ich das ueber

if (s0-f[N-k])^2 < (s1-f[N-k])^2 then
s:=s0; inf:=inf+0*10^k;
else
s:=s1; inf:=inf+1*10^k;

mittels der "Hau Ruck Methode" ganz einfach geloest.
Schon moeglich dass hier ein Fehler im Detail steckt. Aber dass ihr den beide seht und ich nicht.
Lasst mich nicht dumm sterben :-)

0*10^k kann man natuerlich weglassen, aber ich mags gerne symetrisch.

Warum sollte die letzte Ziffer keine Null sein ?
Das ist das Vorzeichen von Wurzel(r^2-4*r*s)
Ich bilde aber (1/2/r*(r+/-Wurzel(r^2-4*r*s)))

Komm nicht drauf was falsch sein soll.