Seite 3 von 3
Verfasst: 12.12.2007 02:00
von 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.
Verfasst: 12.12.2007 14:19
von 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.
Verfasst: 13.12.2007 16:00
von Kaeru Gaman
@Sebastian:
alles roger, no problem.