FreePascal高手看看问题出在哪里?显示错误201
发布网友
发布时间：2024-10-28 13:49
共1个回答
热心网友
时间：2024-10-28 14:07
1、首先，你的‘ch'与'kh'数组的下限不是1，而是0
2、while gao<>1 do 这句话是错误的，二进制的1并非只有末尾有
3、 i:=i+1; gao:=kh[i]; 此时i在循环前的初值是32767，应为’i:=i-1‘
那么，这是我改进的程序：
var
ch,kh:array[0..32767] of longint;i:longint;num,gao,s,yu:longint;
begin read(num);
if ((num>=1) and (num<=32767)) then begin
i:=1;
while num<>0 do begin
yu:=num mod 2;
ch[i]:=yu ;
num:=num div 2;
i:=i+1;
end;
for s:=i-1 downto 1 do write(ch[s]);
readln;
readln;
end;
end.
注意：for s:=i-1 downto 1 是将循环变量s从i-1递减至1追问谢谢，试试
