主题：啊...一道对只学了P1年的人来说的BT题目
zjh1312
[专家分：90] 发布于 2007-03-15 19:10:00
输入两个两位数,...输出它们所对应的二进制数还有他们的和...例如
输入 16 和 17 打印
10000
+10001
---------
100001
要对齐!!!
回复列表 （共7个回复）
沙发
游侠UFO [专家分：1200] 发布于 2007-03-17 21:17:00
学了一年翻翻资料应该可以做这题了,除非你没认真学
主要就是要用到把十进制的数转换为二进制的算法,这个应该不难,用短除法就能搞定.至于对齐那是字符处理的问题了,你学了一年应该会的!
自己试着写一下吧
板凳
jijiji52 [专家分：0] 发布于 2007-03-20 22:20:00
周是你
3 楼
wliwei [专家分：20] 发布于 2007-03-25 16:20:00
你都学了一年了,这个都不会??????????
4 楼
lingchen04 [专家分：0] 发布于 2007-04-25 10:51:00
看一下书吧,老兄
5 楼
mickeyice [专家分：200] 发布于 2007-04-29 11:35:00
...我n年也不会~~~给我本入门书,5分钟都不用.
6 楼
迷路的天使 [专家分：1340] 发布于 2007-11-21 18:27:00
[quote]你都学了一年了,这个都不会??????????
[/quote]
[fly]不会吧`~~~`[/fly][em1][em1][em2][em3][em4][em5][em6][em7][em8][em9][em10][em11][em12][em16][em20]
7 楼
小顾学PC [专家分：0] 发布于 2008-01-03 16:20:00
hoho~~~
我试了一个,别骂我啊.
program g;
var
i,j,k,l,n,m:longint;
a,b:array[1..100] of longint;
procedure cao(n:longint);
var i,j:integer;
begin
i:=1;
while n <> 0 do
begin
a[i]:=n mod 2;
n:=n div 2;
i:=i+1;
end;
write(' ');
k:=i;
for j:=i-1 downto 1 do write(a[j]);
writeln;
end;
begin
write('input number');
readln(n);
readln(m);
cao(n);cao(m);
writeln('+');
for i:= 1 to k do write('-');
writeln;
k:=m+n;
cao(k);
end.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 啊...一道对只学了P1年的人来说的BT题目