@echo off
REM 阿拉伯數字轉換為羅馬數字
setlocal EnableDelayedExpansion
REM 定義羅馬數字組
set ones_romans[0]=
set ones_romans[1]=I
set ones_romans[2]=II
set ones_romans[3]=III
set ones_romans[4]=IV
set ones_romans[5]=V
set ones_romans[6]=VI
set ones_romans[7]=VII
set ones_romans[8]=VIII
set ones_romans[9]=IX
set tens_romans[0]=
set tens_romans[1]=X
set tens_romans[2]=XX
set tens_romans[3]=XXX
set tens_romans[4]=XL
set tens_romans[5]=L
set tens_romans[6]=LX
set tens_romans[7]=LXX
set tens_romans[8]=LXXX
set tens_romans[9]=XC
set hundreds_romans[0]=
set hundreds_romans[1]=C
set hundreds_romans[2]=CC
set hundreds_romans[3]=CCC
set hundreds_romans[4]=CD
set hundreds_romans[5]=D
set hundreds_romans[6]=DC
set hundreds_romans[7]=DCC
set hundreds_romans[8]=DCCC
set hundreds_romans[9]=CM
set thousands_romans[0]=
set thousands_romans[1]=M
set thousands_romans[2]=MM
set thousands_romans[3]=MMM
:ConvertToRoman
REM 接收輸入端
cls
echo.
set number=
set /p number=請輸入一個整數：
set result=
REM 檢測是否大于3999
set stand=3999
if %number% equ %stand% goto :processing
if %number% gtr %stand% (
cls
echo.
echo 被轉換數字不可大于3999
pause >nul
goto :ConvertToRoman
)
if %number% lss %stand% goto :processing
:processing
REM 千位
set /a t=number/1000
set /a number=number%%1000
set result=!result!!thousands_romans[%t%]!
REM 百位
set /a t=number/100
set /a number=number%%100
set result=!result!!hundreds_romans[%t%]!
REM 十位
set /a t=number/10
set /a number=number%%10
set result=!result!!tens_romans[%t%]!
REM 個位
set result=!result!!ones_romans[%number%]!
echo.
echo 得到羅馬數字為：%result%
pause >nul
goto :ConvertToRoman
nclick="copycode($('code0'));">復制代碼