Delphi Bruchrechnung und das kürzen...

Thema durchsuchen

Ansicht

Themen-Optionen

Bruchrechnung und das kürzen...

Offene Frage von "Anigmos"

Ein Thema von Anigmos · begonnen am 12. Feb 2007 · letzter Beitrag vom 12. Mai 2009

Vorheriger Beitrag

Nächster Beitrag

TonyR

Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge

FreePascal / Lazarus

Re: Bruchrechnung und das kürzen...

13. Feb 2007, 09:58

Aber ich hoffe du verstehst meine Vorgehensweise hier:

markieren

Delphi-Quellcode:

			procedure kurzen(Ausgangsbruch, Ergebnisbruch: Tbruch);

begin

Ergebnisbruch.zahler:=Round(Ausgangsbruch.zahler div ggt(Ausgangsbruch.zahler,Ausgangsbruch.nenner));

Ergebnisbruch.nenner:=Round(Ausgangsbruch.nenner div ggt(Ausgangsbruch.zahler,Ausgangsbruch.nenner));

end;

So geht das nämlich => dürfte ja selbsterklärend sein

Und jetzt kannst du deine eigene Prozedur mit deinen 100 Variablen schreiben, oder nicht?

Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg