unit mReibungskugel;

interface

uses mKugel;

type Reibungskugel = class(Kugel)
       procedure bewege; override; // der Dienst bewege ist geändert (gegenüber Kugel)
     end;

implementation

procedure Reibungskugel.bewege;
begin
  zGeschwindigkeit := zGeschwindigkeit * 0.999; // neue Geschwindigkeit berechnen
  inherited Bewege; // bewege-Methode der Oberklasse (Kugel) aufrufen
end;

end.