进位制转化

[问题来源] 无
[问题描述] 将一个十进制数转化成二进制.
输入:[KEYBOARD] 输出:[SCREEN]
255
FF


[问题分析] 模拟手算.

program bin;

const
max=20;

var
i,j:integer;
str:array[1..max] of byte;

procedure print;
var k,r:integer;
begin
k:=max;
repeat
dec(k);
until str[k]=1;
for r:=k downto 1 do write(str[r]);
writeln;
end;

begin
write('Please input an integer between 1..32767:');readln(i);
j:=0;
repeat
inc(j);
str[j]:=i mod 2;i:=i div 2;
until i=1;
str[j+1]:=1;
print;
end.