UC知道(chr(ord(‘a')+b[i]))
来源：百度知道 编辑：UC知道 时间：2024/05/11 15:59:21
var i,j,l,n,k,s,t;
b:=arra[1..10]of0..9;
begin
reagin(l,n);s:=1; k:=1; t:=1;
while s<n do
begin k:=k+1; t:=t*l; s:=s+t; end;
s:=s-t; n:=n-s-1;
for i:=1 to 10 do b[i]:=0;
j:=11;
while n>0 do
begin j:=j+1; b[j]:=n mod l; n:=n divl end;
for i:=10-k+1 to 10 do write(chr(ord(’a')+b[i]));
end
输入：4 123
输出：＿＿＿＿＿＿＿＿＿＿
b:=arra[1..10]of0..9;
begin
reagin(l,n);s:=1; k:=1; t:=1;
while s<n do
begin k:=k+1; t:=t*l; s:=s+t; end;
s:=s-t; n:=n-s-1;
for i:=1 to 10 do b[i]:=0;
j:=11;
while n>0 do
begin j:=j+1; b[j]:=n mod l; n:=n divl end;
for i:=10-k+1 to 10 do write(chr(ord(’a')+b[i]));
end
输入：4 123
输出：＿＿＿＿＿＿＿＿＿＿
程序错误很多，应该如下修改才可能运行：
var i,j,l,n,k,s,t:integer;
b:array [1..10] of 0..9;
begin
readln(l,n);s:=1; k:=1; t:=1;
while s<n do
begin k:=k+1; t:=t*l; s:=s+t; end;
s:=s-t; n:=n-s-1;
for i:=1 to 10 do b[i]:=0;
j:=11;
while n>0 do
begin j:=j+1; b[j]:=n mod l; n:=n div l; end;
for i:=10-k+1 to 10 do write(chr(ord('a')+b[i]));
end.
正确程序输入：4 123
输出的结果为：aaaaa