# 10進数128ビット浮動小数点数をIEEE754内部表現の2進数と16進数に変換する関数
def decimal_to_binary_ieee754_128(x):
  # 符号ビットを決定する
  if x < 0:
    sign = "1"
    x = -x
  else:
    sign = "0"
  # 指数部と仮数部を求める
  # xを2進数に変換する
  binary = bin(int(x))[2:]
  # 小数点以下の部分を2進数に変換する
  fraction = x - int(x)
  fraction_binary = ""
  while fraction > 0 and len(fraction_binary) < 128:
    fraction *= 2
    fraction_binary += str(int(fraction))
    fraction -= int(fraction)
  # xが整数の場合は小数点を追加する
  if fraction_binary == "":
    binary += "."
  else:
    binary += "." + fraction_binary
  # xが0の場合は特殊なケースとして扱う
  if x == 0:
    exponent = "0" * 15
    mantissa = "0" * 112
  else:
    # xが正規化されている場合
    if binary[0] == "1":
      # 小数点の位置を調整する
      point_index = binary.index(".")
      # 指数部を求める
      exponent = bin(16383 + point_index - 1)[2:]
      # 指数部が15ビットになるように0を補う
      exponent = "0" * (15 - len(exponent)) + exponent
      # 仮数部を求める
      mantissa = binary[1:].replace(".", "")
      # 仮数部が112ビットになるように0を補うか切り捨てる
      if len(mantissa) < 112:
        mantissa += "0" * (112 - len(mantissa))
      else:
        mantissa = mantissa[:112]
    # xが非正規化されている場合
    else:
      # 1が現れる位置を探す
      one_index = binary.index("1")
      # 指数部を求める
      exponent = "0" * 15
      # 仮数部を求める
      mantissa = binary[one_index + 1:].replace(".", "")
      # 仮数部の先頭に0を補う
      mantissa = "0" * (one_index - 1) + mantissa
      # 仮数部が112ビットになるように0を補うか切り捨てる
      if len(mantissa) < 112:
        mantissa += "0" * (112 - len(mantissa))
      else:
        mantissa = mantissa[:112]
  # 符号ビット、指数部、仮数部を結合して返す
  return sign + exponent + mantissa
 
def decimal_to_binary_and_hexadecimal_ieee754_128(x):
  # 10進数を2進数に変換する関数を呼び出す
  binary = decimal_to_binary_ieee754_128(x)
  # 2進数を16進数に変換する
  hexadecimal = hex(int(binary, 2))
  # 2進数と16進数を返す
  return binary, hexadecimal
 
print(decimal_to_binary_and_hexadecimal_ieee754_128(1E+1))

IyAxMOmAsuaVsDEyOOODk+ODg+ODiOa1ruWLleWwj+aVsOeCueaVsOOCkklFRUU3NTTlhoXpg6jooajnj77jga4y6YCy5pWw44GoMTbpgLLmlbDjgavlpInmj5vjgZnjgovplqLmlbAKZGVmIGRlY2ltYWxfdG9fYmluYXJ5X2llZWU3NTRfMTI4KHgpOgogICMg56ym5Y+344OT44OD44OI44KS5rG65a6a44GZ44KLCiAgaWYgeCA8IDA6CiAgICBzaWduID0gIjEiCiAgICB4ID0gLXgKICBlbHNlOgogICAgc2lnbiA9ICIwIgogICMg5oyH5pWw6YOo44Go5Luu5pWw6YOo44KS5rGC44KB44KLCiAgIyB444KSMumAsuaVsOOBq+WkieaPm+OBmeOCiwogIGJpbmFyeSA9IGJpbihpbnQoeCkpWzI6XQogICMg5bCP5pWw54K55Lul5LiL44Gu6YOo5YiG44KSMumAsuaVsOOBq+WkieaPm+OBmeOCiwogIGZyYWN0aW9uID0geCAtIGludCh4KQogIGZyYWN0aW9uX2JpbmFyeSA9ICIiCiAgd2hpbGUgZnJhY3Rpb24gPiAwIGFuZCBsZW4oZnJhY3Rpb25fYmluYXJ5KSA8IDEyODoKICAgIGZyYWN0aW9uICo9IDIKICAgIGZyYWN0aW9uX2JpbmFyeSArPSBzdHIoaW50KGZyYWN0aW9uKSkKICAgIGZyYWN0aW9uIC09IGludChmcmFjdGlvbikKICAjIHjjgYzmlbTmlbDjga7loLTlkIjjga/lsI/mlbDngrnjgpLov73liqDjgZnjgosKICBpZiBmcmFjdGlvbl9iaW5hcnkgPT0gIiI6CiAgICBiaW5hcnkgKz0gIi4iCiAgZWxzZToKICAgIGJpbmFyeSArPSAiLiIgKyBmcmFjdGlvbl9iaW5hcnkKICAjIHjjgYww44Gu5aC05ZCI44Gv54m55q6K44Gq44Kx44O844K544Go44GX44Gm5omx44GGCiAgaWYgeCA9PSAwOgogICAgZXhwb25lbnQgPSAiMCIgKiAxNQogICAgbWFudGlzc2EgPSAiMCIgKiAxMTIKICBlbHNlOgogICAgIyB444GM5q2j6KaP5YyW44GV44KM44Gm44GE44KL5aC05ZCICiAgICBpZiBiaW5hcnlbMF0gPT0gIjEiOgogICAgICAjIOWwj+aVsOeCueOBruS9jee9ruOCkuiqv+aVtOOBmeOCiwogICAgICBwb2ludF9pbmRleCA9IGJpbmFyeS5pbmRleCgiLiIpCiAgICAgICMg5oyH5pWw6YOo44KS5rGC44KB44KLCiAgICAgIGV4cG9uZW50ID0gYmluKDE2MzgzICsgcG9pbnRfaW5kZXggLSAxKVsyOl0KICAgICAgIyDmjIfmlbDpg6jjgYwxNeODk+ODg+ODiOOBq+OBquOCi+OCiOOBhuOBqzDjgpLoo5zjgYYKICAgICAgZXhwb25lbnQgPSAiMCIgKiAoMTUgLSBsZW4oZXhwb25lbnQpKSArIGV4cG9uZW50CiAgICAgICMg5Luu5pWw6YOo44KS5rGC44KB44KLCiAgICAgIG1hbnRpc3NhID0gYmluYXJ5WzE6XS5yZXBsYWNlKCIuIiwgIiIpCiAgICAgICMg5Luu5pWw6YOo44GMMTEy44OT44OD44OI44Gr44Gq44KL44KI44GG44GrMOOCkuijnOOBhuOBi+WIh+OCiuaNqOOBpuOCiwogICAgICBpZiBsZW4obWFudGlzc2EpIDwgMTEyOgogICAgICAgIG1hbnRpc3NhICs9ICIwIiAqICgxMTIgLSBsZW4obWFudGlzc2EpKQogICAgICBlbHNlOgogICAgICAgIG1hbnRpc3NhID0gbWFudGlzc2FbOjExMl0KICAgICMgeOOBjOmdnuato+imj+WMluOBleOCjOOBpuOBhOOCi+WgtOWQiAogICAgZWxzZToKICAgICAgIyAx44GM54++44KM44KL5L2N572u44KS5o6i44GZCiAgICAgIG9uZV9pbmRleCA9IGJpbmFyeS5pbmRleCgiMSIpCiAgICAgICMg5oyH5pWw6YOo44KS5rGC44KB44KLCiAgICAgIGV4cG9uZW50ID0gIjAiICogMTUKICAgICAgIyDku67mlbDpg6jjgpLmsYLjgoHjgosKICAgICAgbWFudGlzc2EgPSBiaW5hcnlbb25lX2luZGV4ICsgMTpdLnJlcGxhY2UoIi4iLCAiIikKICAgICAgIyDku67mlbDpg6jjga7lhYjpoK3jgasw44KS6KOc44GGCiAgICAgIG1hbnRpc3NhID0gIjAiICogKG9uZV9pbmRleCAtIDEpICsgbWFudGlzc2EKICAgICAgIyDku67mlbDpg6jjgYwxMTLjg5Pjg4Pjg4jjgavjgarjgovjgojjgYbjgasw44KS6KOc44GG44GL5YiH44KK5o2o44Gm44KLCiAgICAgIGlmIGxlbihtYW50aXNzYSkgPCAxMTI6CiAgICAgICAgbWFudGlzc2EgKz0gIjAiICogKDExMiAtIGxlbihtYW50aXNzYSkpCiAgICAgIGVsc2U6CiAgICAgICAgbWFudGlzc2EgPSBtYW50aXNzYVs6MTEyXQogICMg56ym5Y+344OT44OD44OI44CB5oyH5pWw6YOo44CB5Luu5pWw6YOo44KS57WQ5ZCI44GX44Gm6L+U44GZCiAgcmV0dXJuIHNpZ24gKyBleHBvbmVudCArIG1hbnRpc3NhCiAKZGVmIGRlY2ltYWxfdG9fYmluYXJ5X2FuZF9oZXhhZGVjaW1hbF9pZWVlNzU0XzEyOCh4KToKICAjIDEw6YCy5pWw44KSMumAsuaVsOOBq+WkieaPm+OBmeOCi+mWouaVsOOCkuWRvOOBs+WHuuOBmQogIGJpbmFyeSA9IGRlY2ltYWxfdG9fYmluYXJ5X2llZWU3NTRfMTI4KHgpCiAgIyAy6YCy5pWw44KSMTbpgLLmlbDjgavlpInmj5vjgZnjgosKICBoZXhhZGVjaW1hbCA9IGhleChpbnQoYmluYXJ5LCAyKSkKICAjIDLpgLLmlbDjgagxNumAsuaVsOOCkui/lOOBmQogIHJldHVybiBiaW5hcnksIGhleGFkZWNpbWFsCiAKcHJpbnQoZGVjaW1hbF90b19iaW5hcnlfYW5kX2hleGFkZWNpbWFsX2llZWU3NTRfMTI4KDFFKzEpKQ==