一道简单的pascal题目,帮忙解!

一道递归题.求一个十进制数的N进制数.N<10

2025-05-06 12:23:56

推荐回答（1个）

回答（1）：

'将 I 转换为 N 进制数
Function convert(ByVal I As Long, ByVal N As Long) As String
If I < N Then
convert = Str(I)
Else
convert = convert(I \ N, N) & (I Mod N)
End If
End Function

上面的函数是用VB编写的，你将它改为PASCAL函数即可；
其中 I \ N 表示 I被N整除得到的商，
I MOD N 表示 I除以N得到的余数
Str(I) 表示将I转换为字符串
convert = ... 相当于返回 ... 作为函数值

祝你好运！