UC知道███████████二进制████████████████
来源：百度知道 编辑：UC知道 时间：2024/05/02 16:24:09
在pascal里
输入2个两位数，打印出竖式的2进制加法
入输入1 1
就输出
1
+ 1
———
10
输入2 2
就输出
10
+10
——
100
关键要对齐
有人知道吗？
编好的调试好的可以发上来（我的pascal没单元的）没有人吗
2楼的没输出结果
输入2个两位数，打印出竖式的2进制加法
入输入1 1
就输出
1
+ 1
———
10
输入2 2
就输出
10
+10
——
100
关键要对齐
有人知道吗？
编好的调试好的可以发上来（我的pascal没单元的）没有人吗
2楼的没输出结果
Q309425851
程序必须要自己写
别人的东西永远不是自己的
有格式之类的小问题我可以帮你，但程序必须要你自己亲手写才有收获
Program Two;
type Twoword=1..2;
var cw,dw:array[1..4000] of Twoword;
b:Twoword;
c,d:longint;
e,f:integer;
procedure Twounlock(a:longint;var b:array of Twoword;var c:integer);
var d:longint;
begin
d:=a;
c:=0;
repeat
c:=d mod 2;
inc(c);
b[e]:=c;
c:=c div 2;
unitl c=0;
end;
begin
write('Please input a and b:');
readln(c,d);
Twounlock(c,cw,e);
for f:=e downto 1 do begin write(cw[f]);
Twounlock(d,dw,e);
for f:=e downto 1 do begin write(dw[f]);
writeln;
writeln('+');
writeln('-----------------------------------------');
writeln;
Twounlock(c+d,cw,e);
for f:=e dowto 1 do write(cw[f]);
readln;
readln;
end.