Wurzelziehen

[hardfalcon]

Versuch doch mal, selber eine Procedure zu entwickeln, die das gleiche macht wie Sqrt(). Das nötige Wissen lernt man normalerweise schon in der Grundschule. Das bringt dir sicher mehr Erfolgserlebnis als wenn du einfach nur eine graphische Oberfläche zusammenhackst.

[NicTheQuick]

Hier die Umsetzung einer blöden Aufgabe des Analysis-Übungsblattes, bei der
die Konvergenz bestimmt werden soll. Hab's leider nicht hinbekommen, aber
was die Folge zurückliefert, war mir klar.

Die Wurzel:

Code: Alles auswählen

Procedure.d wurzel(x.d, n.l = 20)
  Protected m1.d
  If n = 0 : ProcedureReturn 0.5 * x : EndIf
  m1 = wurzel(x, n-1)
  ProcedureReturn 0.5*(m1+x/m1)
EndProcedure

x.d = 9999
a.d = wurzel(x)
MessageRequester("wurzel", StrD(a) + Chr(10) + StrD(Sqr(x)))

20 Rekursionen sollten genügen. Aber um die Wurzel aus Zahlen unter
10000 zu ziehen, reichen sogar 10 Rekursionen.

[Kaeru Gaman]

@Sebastian:
alles roger, no problem.