gelöst: Brüche kürzen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: gelöst: Brüche kürzen

Re: Brüche kürzen

von erikafuchs » Di, 04.02.2020 18:03

Nun ja, wenn man weiß, dass man suchen muss - ich dachte zu wissen, wie man den ggT sucht - mit Primfaktorenzerlegung. Hätte ich gewusst, dass es da noch eine Methode gibt, hätte ich auch gesucht - es ist aber auch eine Schande, dass mir der Euklid in diesem Zusammenhang noch nicht begegnet ist!

Re: Brüche kürzen

von Hiker » Sa, 01.02.2020 16:50

Moderne Zeiten:

Brüche kürzen bei Google eingeben oder direkt zu
Wikipedia: Kürzen https://de.m.wikipedia.org/wiki/K%C3%BCrzen

Von hier ist man schnell beim GGT und dem euklidischen Algorithmus https://de.m.wikipedia.org/wiki/Euklidi ... lgorithmus

War früher auch eine beliebte Übungsaufgabe in Programmierkursen - keine Ahnung was die da heute machen.

Mfg, Jörn

Re: Brüche kürzen

von erikafuchs » Fr, 31.01.2020 22:20

Was lernt man eigentlich in einem Mathestudium (na ja, bis zum 4. Semester - und das nicht wirklich erfolgreich .... ) man sieht, das Wichttigste lernt man, im wirklichen Leben!

Re: Brüche kürzen

von mikeleb » Fr, 31.01.2020 21:53

Hi,
den Code nicht, den euklidischen Algorithmus schon ...

Re: Brüche kürzen

von erikafuchs » Fr, 31.01.2020 21:45

Hallo mikeleb,
ich muss schon sagen, das ist ein starkes Ding!
Ich hätte jetzt vielleicht die Tage meinen Ergeiz drangesetzt und das mit der Primfaktorenzerlegung angegangen (oder auch Hikers Vorschlag eingebaut) - aber dein Code finde ich schon krass, wie kommt man da drauf - oder hattest Du das schon in der Schublade?

Re: Brüche kürzen

von mikeleb » Fr, 31.01.2020 19:27

Hallo,
... oder

Code: Alles auswählen

Sub main
	Dim x as long, y as long
	x=1504
	y=20
	kuerzen (x,y)
	msgbox "Der gekürzte Bruch lautet: " & x & " / " & y
end sub

Sub kuerzen (z as long, n as long)
	if n>z then
		a=n
		b=z
	else
		a=z
		b=n
	end if
	rest=1
	do while rest>0
		rest=a mod b
		a=b
		b=rest
	loop
	z=z/a
	n=n/a
End Sub

Re: Brüche kürzen

von erikafuchs » Do, 30.01.2020 22:45

Prima, perfekt!
Manchmal muss man halt nur an den richtigen Stellen suchen!
Danke

Re: Brüche kürzen

von Hiker » Do, 30.01.2020 22:11

Hallo,

es gibt eine fertige Funktion GGT() in Calc...

MfG, Jörn

gelöst: Brüche kürzen

von erikafuchs » Do, 30.01.2020 18:58

In meinem Rechentrainer funktioniert das Kützen nicht hundertprozentig. Ich probiere einfach das Teilen durch ein Reihe von Primzahlen aus, das ist nicht so richtig mathematisch. Eigentlich müsste man Zähler und Nenner in Primfaktoren zerlegen und gemeinsame Treffer suchen ....Das muss doch auch einfacher gehen. Calc kann ja schon kürzen. Wenn ich in Zelle1 den Zähler in Zelle2 den Nenner schreibe und die Zelle3 mit "=Zelle1/Zelle2" als Bruch formatiere, kürzt Calc - wenn ich das jetzt als Bruch auch auslesen könnte, wäre prima - geht sicher nicht. Ich brauche das als Makrocode. Die Idee wäre die Ausgabe zu formatieren also etwa =format(Zelle1/Zelle2;"#/#") - das geht natürlich nicht so - ihr habt doch sicher wieder eine Idee dazu.
@Balu, hilft mir da das XrayTool weiter?
Pit

Nach oben