七星电气股票代码:一道简单的pascal题目,帮忙解!

来源:百度文库 编辑:高校问答 时间:2024/04/27 19:41:53
一道递归题.
求一个十进制数的N进制数.N<10

'将 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 = ... 相当于返回 ... 作为函数值

祝你好运!