ф BBCBASIC т_GET_CHOICE з A=1:т_PRINC (з A=2:т_INT 2з A=3:т_TERM <з A=4:т_REPYT FеЌTT@ P: ZЭ т_GET_CHOICE dЫ @nс"1 - PRINCIPAL"'"2 - INTEREST"'"3 - TERM"'"4 - REPAYMENT"'' xи"ENTER UNKNOWN 1 - 4 "'A ‚б Њ: –Э т_PRINC Ы %ЄсЉ10,0)"CALCULATING PRINCIPAL"''' ґи"INTEREST RATE "I:I=I/100 ,ѕи"TERM IN YEARS, MONTHS "Y,M:TERM=Y+M/12 !Ии"MONTHLY REPAYMENT "R:R=R*12 То … е ЌddB ЬP=R/(I+(I/((1+I)^TERM-1))) ж@%=&02020A рс''"PRINCIPAL AMOUNT ";P ъо … ‡ +сЉ0,20)"PRESS ANY KEY TO CONTINUE";:N=Ґ б : "Э т_INT ,Ы (6сЉ8,0)"CALCULATING INTEREST RATE"''' @и"PRINCIPAL "P ,Jи"TERM IN YEARS, MONTHS "Y,M:TERM=Y+M/12 !Tи"MONTHLY REPAYMENT "R:R=R*12 ^TEMP=.1 hо … е ЌddB rх |I=TEMP †TEMP=R/P-(I/((1+I)^TERM-1)) ђэ”(TEMP-I)<.000001 љ@%=&02030A ¤с''"INTEREST RATE ";I*100 ®о … ‡ +ёсЉ0,20)"PRESS ANY KEY TO CONTINUE";:N=Ґ Вб М: ЦЭ т_TERM аЫ ксЉ12,0)"CALCULATING TERM"''' фи"PRINCIPAL "P юи"INTEREST RATE "I:I=I/100 !и"MONTHLY REPAYMENT "R:R=R*12 о … е ЌddB %TERM=Є(P*I/(R-P*I)+1)/Є(1+I)+1/24 )&Y=Ё(TERM):M=Ё((TERM-Ё(TERM))*12):@%=0 %0с''"TERM IS "Y" YEARS,"M" MONTHS" :о … ‡ +DсЉ0,20)"PRESS ANY KEY TO CONTINUE";:N=Ґ Nб X: bЭ т_REPYT lЫ ,vсЉ6,0)"CALCULATING MONTHLY REPAYMENT"''' Ђи"PRINCIPAL "P Љи"INTEREST RATE "I:I=I/100 +”и"TERM IN YEARS,MONTHS "Y,M:TERM=Y+M/12 ћо … е ЌddB !ЁR=P*(I+(I/((1+I)^TERM-1)))/12 І@%=&02020A јс''"MONTHLY REPAYMENT IS "R Жо … ‡ -РсЉ0,20);"PRESS ANY KEY TO CONTINUE ";:N=Ґ Ъб дс'''"OUT OF RANGE" +осЉ0,20)"PRESS ANY KEY TO CONTINUE";:N=Ґ шо … ‡ еЌTT@ яяZF_GET_CHOICE~@hF_PRINCч@tF_INT-BЃF_TERM‹C