2017.8.9测试 题一 17倍

17倍

（Times17）

 

题目：

    在了解做软件开发可能赚很多的钱之后，农夫约翰也开了一家小的软件公司为客户写程序。约翰的第一个任务对他来说看起来相当简单：输入一个数N，然后输出17*N的值。但是现在，客户又变更了一个条件，输入的N是一个二进制数，输出的值也要是二进制表示的。

问题描述：

现在请帮助约翰完成这个任务。

输入格式：

一个二进制表示的数N。

输出格式：

二进制表示的17N。

输入输出样例：

times17.in	10110111
times17.out	110000100111

 

数据范围：

N的位数不超过1000位。

 

说明：

10110111相当于十进制的183，于是183*17=3111，二进制形式是110000100111 。

题解:本题的17倍可以用乘法分配律分配成(16+1),16的二进制是10000，1的二进制就是1，所以就是s*10000(向前移4位)+s就行啦

var
 a,b,c:array[0..100000]of longint;
 s,ss:ansistring;
 len1,len2,len3,i,t,g:longint;
begin
 read(s);
 len1:=length(s);
 for i:=1 to len1 do val(s[i],a[len1-i+1]);
 ss:=s+'0000';//s*10000后的数
 len2:=len1+4;//向前移了4位，所以长度+4
 for i:=1 to len2 do val(ss[i],b[len2-i+1]);
 i:=1;
 while (i<=len1) or (i<=len2) or (i<=len3)do//二进制的高精度加法~
  begin
   if len3<i then len3:=i;
   t:=a[i]+b[i]+g;
   c[i]:=t mod 2;
   g:=t div 2;
   if g>=1 then inc(len3);
   inc(i);
  end;
 for i:=len3 downto 1 do write(c[i]);
end.