summaryrefslogtreecommitdiff
path: root/1871/CH8/EX8.2/Ch08Ex2.sce
blob: 7fe068b7b477ea7b7a0aa4cf5f505ec35566dfd9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// Scilab code Ex8.2 : Pg:328(2008)
clc;clear;
function [dec]= binfrac_decifrac(n) // Function to convert binary fraction to decimal fraction
    dec = 0;
    i = -1;
    while (i >= -3)
      n = n*10;
      rem = round(n);      
      n = n-rem;
      dec = dec + rem*2.^i;
      i = i - 1;
    end
endfunction   

n = 0.101;    // Initialize the binary number
printf("Binary fraction %5.3f = Decimal frac = %5.3f", n, binfrac_decifrac(n)); 

// Result
//  Binary fraction 0.101 = Decimal frac = 0.625