basic语言除k取余法转换进制--高中数学3-45页练习3

2020年2月29日 18:34 by wst

高中数学编程

---

利用除k取余法，进行数的转换；

' Gambas module file

Public Sub Main()
  Dim n, m, k, r As Integer
  Input n, k 
  Do
    r = n Mod k
    m = n \ k
    n = m
    Print r
  Loop Until n == 0

End

输入内容为十进制的n，以及转换为K进制的K。

比如：把25转换为2进制，则输入25 2

把输出的内容，倒序写出即为结果。

 

如有疑问，欢迎留言！

---