Hi !
Also ich bin totaler Delphi Noob.
Paar Grundsachen kann ich schon, nun möchte "ich" gerne ein "Prog" schreiben das 2 Brüche addiert, das stell ich mir wie folgt vor:


Ganze Zahl(Edit1) Zähler(Edit2)/Nenner(Edit3) + Ganze Zahl2(Edit4) Zähler2(Edit5)/Nenner2(Edit6) = Ganze Zahl Ergebnis (Edit7) Zähler Ergebnis(Edit8)/Nenner Ergebnis(Edit9)

Zur verständlichkeit, nach der Eingabe soll das ganze denn z.B. so aussehen 7 3/6 + 2 8/2 = x y/z


Nun hab ich mir schon folgende Gedanken gemacht:
kgT {Nenner1, Nenner2)

Weiter komm ich einfach nicht, vielleicht gebt ihr mir mal Tips wo ich suchen kann, oder wie ich selber drauf komm, oder ein ausführlicher beschriebener Anfang !
Ihr habt doch auch mal angefangen

Gruss und Dank
Monty

Zuerst mal: kgT steht denk ich mal für kleinster gemeinsamer Teiler. Allerdings muss es natürlich das kleinste gemeinsame Vielfache sein, der kleinste gemeinsame Teiler wäre ja immer 1.

Jetzt zum Problem:
Als erstes musst du natürlich das kleines gemeinsame Vielfache von den beiden Nennern ermitteln. Dann ziehst du die ganze Zahl in den jeweiligen Zähler mit rein, d.h aus 3 5/7 wird dann 26/7, also 26 im Zähler und 7 im Nenner. Da du jetzt schon die Nenner gleich hast musst du nur noch die Zähler addieren.
Zum Schluss kannst du bei dem Ergebnis noch den größten gemeinsamen Teiler von Zähler und Nenner ermitteln und den Bruch soweit wie möglich kürzen.

Hoffe ich konnt helfen.

cya

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

type
  TFraction = record
    Ganzzahlig, Zaehler, Nenner: Integer;
  end;

function FractionAdd(Num1, Num2: TFraction):TFraction;
var
  kgV: Integer;
begin
  kgV := Num1.Nenner * Num2.Nenner; //Später durch kgV-Fuznktion ersetzen!!!

  Num1.Zaehler := Num1.Zaehler * kgV div Num1.Nenner;
  Num2.Zaehler := Num2.Zaehler * kgV div Num2.Nenner;

  Result.Nenner := kgV;

  Result.Zaehler := 
    Num1.Ganzzahl * kgV + Num1.Zaehler + 
    Num2.Ganzzahl * kgV + Num2.Zaehler;
  Result.Ganzzahl := Result.Zaehler div Result.Nenner;
  Result.Zaehler := Result.Zaehler mod Result.Nenner;
end;					

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.