summaryrefslogtreecommitdiff
path: root/3808/CH4/EX4.8/Ex4_8.sce
blob: 63c5a0374c08c2b019999090c1bb453ddefd0640 (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
//Chapter 04:Number Theory and Cryptography

clc;
clear all;

bin_eq=[]
decn=input("Enter the decimal number:")
tn=decn
i=1
b=floor(decn/2)
rem=modulo(decn,2)
bin_eq(i)=string(rem(i))
while 2<=b
    decn=b
    i=i+1
    b=floor(decn/2)
    rem=modulo(decn,2)
    bin_eq(i)=string(rem)
end
bin_eq(i+1)=string(b)
bin_eq=eval(bin_eq)
mprintf("The binary equivalent of the decimal number %d is:",tn)
for i=length(bin_eq):-1:1
    mprintf("%d",bin_eq(i))
end