2017年10月05日普及组负进制

最新推荐文章于 2025-06-04 08:46:10 发布

原创最新推荐文章于 2025-06-04 08:46:10 发布 · 292 阅读

0 ·

CC 4.0 BY-SA版权

普及模拟赛专栏收录该内容

91 篇文章

订阅专栏

本文介绍了一个简单的程序，用于将一个整数转换为其在负二进制基数表示法中的形式。程序首先检查输入的整数是否为0，如果是，则直接输出0。对于非零整数，通过不断除以-2并取余数来实现转换。

这里写图片描述

程序：

var
n,t,f:longint;
zfc:string;
begin
    assign(input,'negii.in');
    reset(input);
    assign(output,'negii.out');
    rewrite(output);
    readln(n);
    if n=0 then writeln('0');
    t:=n;
    zfc:='';
    while t<>0 do
    begin
        f:=t mod (-2);
        if f=-1 then begin t:=t-1; f:=1; end;
        t:=t div (-2);
        zfc:=chr(f+48)+zfc;
    end;
    writeln(zfc);
    close(input);
    close(output);
end.