Komplexe Zahlen und Brüche mit überladenen Operatoren

[Kroko1999]

Und jetzt noch eine zweite Unit über Brüche dazu:
zum Beispiel:

Delphi-Quellcode:

var
  X,Y,Z: TBruch;
begin
  X := '2/1/5';
  Y.Create(2,3);
  Z := X+Y;
  Z := X-Y;
  Z := X*Y;
  Z := X/Y;
end;

* Version 1.0
- Operatoren x, -, *, / überladen
- Float,String nach TBruch
- String im Format: Ganzer Teil/Zähler/Nenner möglich
- TBruch nach String
- Funktionen
= Sqr; Rcp, Abs
- Procedure PaintBruch