作业帮 > 综合 > 作业

数字逻辑:哪个大大 教下!

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/13 08:53:07
数字逻辑:哪个大大 教下!
1.用D触发器做存储元件,设计一个同步时序逻辑电路,实现两位二进制数加法计数计功能
2.用4选1的选择器74153实现函数F(A,B,C)=∑m(1,2,3,6)的逻辑功能
数字逻辑:哪个大大 教下!
program lx;
var a,b,i,c,d:integer;
s1,s2,s3:string;
begin
write('input:');
readln(a,b);
i:=1;
s1:='';
s2:='';
s3:='';
c:=a+b;
while a>0 do begin
s1:=chr(a mod 2+ord('0'))+s1;
a:=a div 2;
i:=i+1;
end;
i:=1;
while b>0 do begin
s2:=chr(b mod 2+ord('0'))+s2;
b:=b div 2;
i:=i+1;
end;
i:=0;
while c>0 do begin
s3:=chr(c mod 2+ord('0'))+s3;
c:=c div 2;
i:=i+1;
end;
val(s1[0],a,d);
val(s2[0],b,d);
val(s2[0],c,d);
if a-b >0 then begin
for i:=1 to c-a do begin s1:=' '+s1; s2:=''+s2 end;
for i:=1 to a-c do s2:=' '+s2;
writeln(' ',s1);
writeln('+ ',s2)
end else begin
for i:=1 to c-b do begin s1:=' '+s1; s2:=''+s2 end;
for i:=1 to b-a do s1:=' '+s1;
writeln(' ',s1);
writeln('+ ',s2)
end;
writeln('--------------');
writeln(' ',s3);
readln;
end.