summaryrefslogtreecommitdiff
path: root/37/CH1/EX1.1.5/Unsolved2.sci
blob: 41dd9c84f69b74850cbff9fcc84d55770c73d09e (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
//Exercise 1.1 example 1.1.5
//Add,Substract And Multiply binary numbers
function[a]=add(b,c)
  d=base2dec(b,2)
  e=base2dec(c,2)
  a=d+e
  a=dec2bin(a)
  disp(a,"Result of addition")
endfunction
function[a]=subtract(b,c)
  d=base2dec(b,2)
  e=base2dec(c,2)
  a=d-e
  a=dec2bin(a)
  disp(a,"Result of subtraction")
endfunction
function[a]=multiply(b,c)
  d=base2dec(b,2)
  e=base2dec(c,2)
  a=d*e
  a=dec2bin(a)
  disp(a,"Result  of multiplication");
endfunction
//Calling Routine:
b="11001";
c="10011";
a=add(b,c)
a=subtract(b,c)
a=multiply(b,c)