Blitzbasic hängt sich auf

Übersicht

BlitzBasic

Allgemein

	sbrog Betreff: Blitzbasic hängt sich auf	Fr, Jul 23, 2004 14:36 Antworten mit Zitat
Hat einer eine Ahnung, wieso sich Blitzbasic bei folgendem Funktion aufhängt ? Code: [AUSKLAPPEN] [EINKLAPPEN] For b = 0 To 100 Print sqrfast(b) Next WaitKey Function sqrfast(a#) Local tempwurzel# Local tempwurzel2# If a# > 2 Then tempwurzel2# = a#/2 Else tempwurzel2# = a Repeat tempWurzel = tempWurzel2 tempWurzel2 = (tempWurzel + a/tempWurzel)/2 Until tempWurzel - tempWurzel2 <= 0.05 Return tempwurzel2 End Function wenn ich die Berechnung ohne Schleife laufen lasse, funktioniert es [/code]

sbrog

Betreff: Blitzbasic hängt sich auf

Fr, Jul 23, 2004 14:36
Antworten mit Zitat

Hat einer eine Ahnung, wieso sich Blitzbasic bei folgendem Funktion aufhängt ?

Code: [AUSKLAPPEN]

For b = 0 To 100
Print sqrfast(b)
Next

WaitKey

Function sqrfast(a#)
Local tempwurzel#
Local tempwurzel2#

If a# > 2 Then tempwurzel2# = a#/2 Else tempwurzel2# = a

Repeat
tempWurzel = tempWurzel2
tempWurzel2 = (tempWurzel + a/tempWurzel)/2
Until tempWurzel - tempWurzel2 <= 0.05

Return tempwurzel2
End Function

wenn ich die Berechnung ohne Schleife laufen lasse, funktioniert es Evil or Very Mad

[/code]