TSavingsAccount = class(TAccount) private fInterestRate: Integer; // annual percentage rate, scaled by 1000 end; TCheckingAccount = class(TAccount) private fReturnChecks: Boolean; end; TCertificateOfDeposit = class(TSavingsAccount) private fTerm: Cardinal; // CD maturation term, in days end...
TSavingsAccount = class(TAccount)privatefInterestRate: Integer; // annual percentage rate, scaled by 1000end;TCheckingAccount = class(TAccount)privatefReturnChecks: Boolean;end;TCertificateOfDeposit = class(TSavingsAccount)privatefTerm: Cardinal; // CD maturation term, in daysend;varCD1, CD2: ...