OOP mit Delphi!

[powderfun]

Delphi-Quellcode:

Unit UBruch;


Interface

Type
  TBruch = Class
    Protected
      Z, N : Integer;
      Procedure Kuerzen;
    Public
      Constructor Create (EZ, EN : Integer);
      Function Zaehler_gekuerzt : Integer;
      Function Nenner_gekuerzt : Integer;

  End;

  TGBruch = Class(TBruch)
  Private
     E : integer;
     procedure kuerzen;
  Public
     Function Z_ges : integer;
  end;


Implementation

Procedure TBruch.Kuerzen;
{Euklidischer Algorithmus}
Var
  NZ, NN : Integer;
  Rest : Integer;
Begin
  NZ := Z;  NN := N;
  Repeat
    Rest := NZ Mod NN;
  If Rest <> 0
    Then Begin
           NZ := NN; NN := Rest
         End;
  Until Rest = 0;
  Z := Z Div NN;
  N := N Div NN;

End;

Procedure TGBruch.kuerzen;
 begin
 inherited kuerzen;
 Z := Z mod N;
 E := Z div N;
 End;

Constructor TBruch.Create (EZ, EN : Integer);
Begin
  Z := EZ;  N := EN;
End;

Function TBruch.Zaehler_gekuerzt : Integer;
Begin
  Kuerzen;
  Zaehler_gekuerzt := Z;
End;

Function TBruch.Nenner_gekuerzt : Integer;
Begin
  Kuerzen;
  Nenner_gekuerzt := N;
End;



 Function TGBruch.Z_ges : Integer;
 Begin
  Kuerzen;
  Z_ges := E;
 end;


End.

[edit=Christian Seehase] Delphi-Tags hinzugefügt. Bitte künftig selber machen. Danke Mfg, Christian Seehase[/edit]