blob: e44212631202a22d43260e87af5876fdadd34490 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
clc;
clear;
//Example 25.25
//substraction by one's complement method
//aaa=input(" Enter the first no (in decimal) :");
//bb=input(" Enter the number from which first no has to be substracted:");
bb=14;
aaa=-7;// substraction is addition of negative number
if aaa<0 then
aa=-1*aaa;
else aa=aaa;
end
a=0;
b=0;
q=0;
for i=1:5 //converting from decimal to binary
x=modulo(aa,2);
a= a + (10^q)*x;
aa=aa/2;
aa=floor(aa);
q=q+1;
end
q=0;
for i=1:5 //converting from decimal to binary
y=modulo(bb,2);
b= b + (10^q)*y;
bb=bb/2;
bb=floor(bb);
q=q+1;
end
for i=1:5
a1(i)=modulo(a,10);
a=a/10;
a=round(a);
end
for i=1:5
b1(i)=modulo(b,10);
b=b/10;
b=round(b);
end;
if aaa<0 then// making one's complement if number is less than zero
for i=1:5
a1(i)=bitcmp(a1(i),1);
end
car(1)=0;
for i=1:5
c1(i)=a1(i)+b1(i)+car(i);
if c1(i)== 2 then
car(i+1)= 1;
c1(i)=0;
elseif c1(i)==3 then
car(i+1)= 1;
c1(i)=1;
else
car(i+1)=0;
end;
end;
car2(1)=car(6);
re=0;
format('v',18);
for i=1:5
re=re+(c1(i)*(10^(i-1))) //result of one's complement addition
end;
for i=1:5
s(i)=modulo(re,10);
re=re/10;
re=round(re);
end;
for i=1:5
re1(i)=s(i)+car2(i);//addition of carry after one's complement addition
if re1(i)== 2 then
car2(i+1)= 1;
re1(i)=0;
elseif re1(i)==3 then
car2(i+1)= 1;
re1(i)=1;
else
car2(i+1)=0;
end;
end;
re2=0;
format('v',18);
for i=1:5
re2=re2+(re1(i)*(10^(i-1)))
end;
disp(re,'difference is')
|
