bruch rechnen

[cosa]

hat jemand zufällig ein programm mit dem man bruch rechnen kann, oder könnte es "schnell" machen ;)

also 2 brüche addiern, subtrahiern, multipliziern und dividiern

wäre für eure hilfe sehr dankbar..

so long -> kay

[sakura]

Nutze doch mal die Suche [dp]Bruch or Brüche[/dp] Die Frage kommt mir bekannt vor...

...:cat:...

[himitsu]

Hi Sakura, diese Suchanfrage findet aber nichts. :zwinker:

[dp]BRUCH* or BRÜCHE*[/dp]

Hier ist die letzte Version: Bruchrechnerproblem!

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

PS

[Mirilin]

:hi:


Schematisch :

Addition :
a/b + c/d = (a*d + b*c) / (b*d)

Subtraktion :
a/b - c/d = (a*d - b*c) / (b*d)

Multiplikation :
a/b * c/d = (a*c) / (b*d)

Division :
(a/b) / (c/d) = (a*d) / (b*c)


mfg Tobias

[Frank Bicking]

Wird das hier jetzt zum Hausaufgaben-Forum?

[MCeddy]

Hallo Cosa. Wir haben das erst neulich in der Schule gehabt. Hier ein paar Codeschnipsel! Hoffe, das sie dir weiterhelfen :wink:

Delphi-Quellcode:

type
  tbruch  = record
    zaehler, nenner : integer;
  end;

procedure bruch_addieren(bruch1, bruch2 : tbruch; var bruch3 : tbruch);
begin
  bruch3.nenner  := bruch1.nenner * bruch2.nenner;
  bruch3.zaehler := bruch1.zaehler * bruch2.nenner + bruch2.zaehler * bruch1.nenner;
end;

procedure bruch_multiplizieren(bruch1, bruch2 : tbruch; var bruch3 : tbruch);
begin
  bruch3.nenner  := bruch1.nenner * bruch2.nenner;
  bruch3.zaehler := bruch1.zaehler * bruch2.zaehler;
end;

procedure bruch_erweitern(var bruch6 : tbruch; erweiterungszahl : integer);
begin
  bruch6.nenner  := bruch6.nenner * erweiterungszahl;
  bruch6.zaehler := bruch6.zaehler * erweiterungszahl;
end;

function ggT (a, b: integer): integer; // ggt = Größte Gemeinsamme Teiler
VAR
  h, rest : integer;
BEGIN
  IF a < b THEN BEGIN
    h := a; a := b; b := h
  END; {of then}
  WHILE b > 0 DO BEGIN
    rest := a MOD b;
    a := b; b := rest
  END; {of while}
  ggT := a
END; {of ggT}

procedure bruch_kuerzen(var bruch7 : tbruch);
var
  kzahl : integer;
begin
  kzahl := ggt(bruch7.nenner, bruch7.zaehler)
  bruch7.nenner  := bruch7.nenner div kzahl;
  bruch7.zaehler := bruch7.zaehler div kzahl;
end;

mfg

MCeddy2002
:dp: