[数值计算] 批处理怎样编写房贷计算器？

@echo off&setlocal enabledelayedexpansion
echo;
goto s
set /p v_sfbl=首付款比率（按揭成数，如 30% 填30）：
set /p v_sdll=商业贷款利率（如 6.6%，6.6*100=640，填660）：
set /p v_fwdj=房屋单价（元/平米）：
set /p v_fwmj=房屋面积（平米）：
set /p v_ajyg=按揭月供年数（如30年）：
:s
set v_sfbl=400000
set v_sdll=0.00347
set v_fwdj=5000
set v_fwmj=100
set v_ajyg=20
echo;
echo;============================================
echo;
set /a s_fwzj=%v_fwdj%*%v_fwmj%
echo;房屋总价：%s_fwzj% 元。
set /a s_sfk=%s_fwzj%*30/100
echo;首付款：%s_sfk% 元。
set /a s_dkje=%s_fwzj%-%s_sfk%
echo;贷款总额（贷款本金）：%s_dkje% 元。
set /a s_hkny=%v_ajyg%*12
echo;还款年数 %v_ajyg% 年，共 %s_hkny% 个月份（期）。
set tmp=%v_sdll%
for /l %%a in (1 1 9) do set tmp=!tmp:%%a=0!
for /f "tokens=* delims=.0" %%a in ("%v_sdll%") do set tmp2=%%a
set /a s_nlx=s_dkje*tmp2/%tmp:0.=1%,tmp_nlx=s_nlx
for %%a in (1 1 4) do if "!s_nlx:~%%a!"=="" set /a n=5-%%a
for /l %%a in (1 1 %n%) do set s_nlx=0!s_nlx!
echo;年利息 %s_nlx:~0,-4%.%s_nlx:~-4% 元。
set /a s_znlx=%s_nlx%*%v_ajyg%
echo;%v_ajyg% 年总利息 %s_znlx% 元。
set /a s_zhk=%s_znlx%+%s_dkje%
echo;%v_ajyg% 年总还款 %s_zhk% 元。
set /a s_yg=%s_zhk%/%s_hkny%
echo;月供 %s_yg% 元。
echo;
pause
exit
复制代码