Real Overflow in expression?

[LegendsEnd]

I'm making some mortgage program for school and i'm getting a real overflow error when it gets to my function in the program which returns a year limit. I need to make sure the payments do not take longer than 30 years to pay off the mortgage

I'm nowhere near complete so this is just the bare basics, and some parts do not yet work however I would like some help with this

code:

%Variable Table var STRmortgage, STRpayment, name, address, phonenum, yesno : string var anykey : string (1) var badinput := false var interest, mortgage, payment : real var row, col, year : int %End Variable Table function yearlimit () : int     var mortgage2 : real     var yearcount : int := 0     mortgage2 := mortgage + mortgage * interest - payment     yearcount += 1     loop         if mortgage2 = 0 then             exit         else             mortgage2 += mortgage2 * interest - payment             yearcount += 1         end if     end loop     result yearcount end yearlimit %Mortgage Chart %Bank Name %Mortgage Schedule for %Year OpeningBalance InterestOwed TotalOwing Payment ClosingBalance procedure chart % Incomplete     row := 0     col := 0     for yearcount : 1 .. 35         locate (row, col)         put year         row := row + 1         %exit when     end for end chart View.Set ("graphics:979;668") %Declares and draws a background image from a separate file for the intro background %var bgpic := Pic.FileNew ("moneyman3.jpg") %Pic.Draw (bgpic, 0, 0, 0) %Opening Screen getch (anykey) cls %Welcoming Screen/Info Gathering PHONENUM Incomplete loop     locate (maxrow div 2, maxcol div 2 - 5)     put "Name: " ..     get name : *     locate (maxrow div 2 + 1, maxcol div 2 - 5)     put "Address: " ..     get address : *     locate (maxrow div 2 + 2, maxcol div 2 - 5)     put "Phone Number: (   )    -   " ..     get phonenum     locate (maxrow div 2 + 4, maxcol div 2 - 12)     loop         put "Is this information correct (Y/N)?" ..         get yesno         if yesno = "y" or yesno = "Y" then             cls             exit         elsif yesno = "n" or yesno = "N" then             cls             exit         else             put "Please enter Y for yes or N for no."         end if     end loop     if yesno = "y" or yesno = "Y" then         exit     end if end loop loop     loop         put "Enter the amount you would like to mortgage (whole numbers please)."         put "$" ..         get STRmortgage         for i : 1 .. length (STRmortgage)             if index ("0123456789", STRmortgage (i)) = 0 then                 put STRmortgage ..                 put " is not an acceptable number."                 put "Please do not enter any letters and enter a whole number."                 badinput := true                 exit             end if         end for         if badinput = false then             exit         end if         badinput := false     end loop     mortgage := strreal (STRmortgage)     if mortgage > 0 and mortgage <= 100000 then         interest := 0.035         exit     elsif mortgage > 0 and mortgage <= 200000 then         interest := 0.055         exit     elsif mortgage > 0 and mortgage <= 300000 then         interest := 0.065         exit     elsif mortgage > 0 and mortgage > 300001 then         interest := 0.075         exit     else         put "You can not mortgage $0."         put ""     end if end loop put "Your interest rate per year is ", interest const minpay := mortgage * interest + 1000 put "The minimum annual payment allowed is ", minpay put "How much would you like to pay per year (Whole number please)?" loop     get STRpayment     for i : 1 .. length (STRpayment)         if index ("0123456789", STRpayment (i)) = 0 then             put "That is not a valid payment amount."             put "Do not enter letters and please enter a whole number."             badinput := true         end if     end for     if badinput = false then         payment := strreal (STRpayment)         if yearlimit () > 30 then             put "That minimum payment is too small to pay off your mortgage in 30 years."             badinput := false         end if         if payment >= minpay and yearlimit () < 30 then             exit         elsif payment < minpay then             put "That does not meet the minimum payment requirements."             badinput := false         end if     end if end loop put "yay"

[Tony]

code:

if mortgage2 = 0 then             exit

your mortgage2 will never be 0, so your loop never exits. To help yourself debug, why don't you output the value of mortgage2 variable and see how it changes from one year to the next.

[LegendsEnd]

Wow, thanks lol. Can't believe I didn't realize it before. I was looking at the formula and the loop over and over but never questioned my if statement :p