Hallo Leute ich (Azubi) habe eine Übungsaufgabe (Wurzel ziehen VBA-Excel) von meinem Chef bekommen, habe sie gelöst und jetzt soll ich die Aufgabe anders lösen, versteh aber ums verrecken nicht was er damit meint.
Könnt Ihr mir auf die Sprünge helfen bzw n Tip geben wonach ich suchen muss?

So hab ich sie gelöst:


und er sagte mir: Super gelöst und formal richtig. Aber versuchen Sie doch mal das Wurzelziehen so richtig selbst zu programmieren ohne sqrt und Exponieren.


Danke schonmal im vorraus!

Gruß
Martin

Schriftliches Wurzelziehen

Da hat er recht:

Super gelöst und formal richtig.

Aber was er von dir möchte ist, dass du dir Gedanken machst WIE das Wurzelziehen eigentlich funktioniert und du so eine Funktion selber implementierst.

Daher: überlege dir mal gut, was denn eigentlich dabei passiert und dann ...
... viel Spass!

diaware.de/html/wurzel.html
arndt-bruenner.de/mathe/scripts/wurzelziehen.htm

Oh man

Danke für die Hilfe

Gruß

Hallo nochmal!
Ich versteh das jetzt wie man das aufm Zettel ausrechnet, aber wie man das programmiert ist mir ein Rätsel! Wenn ihr mir da eine Starthilfe geben könntet wär ich euch sehr dankbar.

MfG

Näherungsweise herantasten ...

aus x soll die Quadratwurzel gezogen werden

Pseudocode:
y_unten = 0
y_oben = x

wiederhole

y = (y_unten + y_oben) / 2
wenn y ^ 2 größer als x dann y_oben = y
sonst y_unten = y

bis y^2 ungefähr x

Danke für die Hilfe. Ich hab es jetzt so gemacht. Aber brauch da noch ein wenig Unterstüzung. Ich muss das " mach es solange bis y^2 UNGEFÄHR x" noch ausschreiben.

Was wäre denn da die beste möglichkeit?

Danke nochmals für die Hilfe

Damals in der guten alten Zeit, haben wir im Informatik-Unterricht "Schreibtischdurchläufe" gemacht ...

Bsp. mit x = 9
qwurzel = 0
y = 0
j = 0

solange 0 = 0 tue:
j = 0^2 / 2 -> j = 0
wenn 0^2 > 0 dann
qwurzel = 0
sonst
y = 0 -> y = 0
ende wenn
ende solange

Am ende der Schleife sind also alle Werte 0 und die Schleife läuft endlos.

Schau dir den Pseudocode nochmal an, würde ich sagen ...

"Ungefähr" prüft man zb mit: if abs(y^2 - x) < 0.0001 then
Somit kann man die "Genauigkeit" vorgeben, die verlangt wird.

Nachtrach:
Hier mal die Grundlagen de.wikipedia.org/wiki/Bisektion

So. Ich hab es jetzt hinbekommen, dass ich in der MsgBox das "annähernd richtige" Ergebnis habe....aber irgendwie zeigt er es mir in dem Textfeld A2 nicht mehr an...aber das bekomm ich schon alleine hin.

Vielen Dank für deine Hilfe Picoflop

MfG Martin