end;
end;
Pascal 3.51 0.77 7 8 5 :1
Ada 10.33 1.70 8 4 6 :1
payment =LoanAmount/
(
(l.0-Power(l.0+(InterestRate/12.0),-Months))
(InterestRate 12.0
, InterestRate/12.0
.
MonthlyInterest:=InterestRate/12.0
Payment:=LoanAmount/
(
(1.0 Power 1.0+Monthlylnterest Months
MonthlyInterest
Pascal 3.13 3.08 2
Ada 9.56 9.33 2
Power()