fork download
  1. proc toString(x: int): string =
  2. if x >= 4000: return "大きすぎます。4000未満の数字を入力してください"
  3. type
  4. RomanNums = array[0..9, string]
  5. var
  6. tenTo3 = x div 1000
  7. tenTo2 = (x - tenTo3*1000) div 100
  8. tenTo1 = (x - tenTo3*1000 - tenTo2*100) div 10
  9. tenTo0 = (x - tenTo3*1000 - tenTo2*100 - tenTo1*10)
  10. tenTo3Array : RomanNums = ["","M","MM","MMM","","","","","",""]
  11. tenTo2Array : RomanNums = ["","C","CC","CCC","CD","D","DC","DCC","DCCC","CM"]
  12. tenTo1Array : RomanNums = ["","X","XX","XXX","XL","L","LX","LXX","LXXX","XC"]
  13. tenTo0Array : RomanNums = ["","I","II","III","IV","V","VI","VII","VIII","IX"]
  14. result = tenTo3Array[tenTo3] & tenTo2Array[tenTo2] & tenTo1Array[tenTo1] & tenTo0Array[tenTo0]
  15.  
  16. proc toString(x: bool): string =
  17. if x: result = "true"
  18. else: result = "false"
  19.  
  20. echo toString(13) # toString(x: int)プロシージャを呼び出す
  21. echo toString(true) # toString(x: int)プロシージャを呼び出す
  22.  
Success #stdin #stdout 0s 2432KB
stdin
Standard input is empty
stdout
XIII
true