home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG066.ARC / POWTWO.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  512b  |  20 lines
  1. (* decimal representaton of negative powers of 2 *)
  2.  
  3. const n=10;
  4.  
  5. type digit  = 0..9;
  6.      digtyp = array[1..n] of digit;
  7.  
  8. var i,k,r: integer;
  9.     d : digtyp;
  10.  
  11. begin for k:=1 to n do
  12.    begin put#0('.'); r:=0;
  13.       for i:=1 to k-1 do
  14.       begin r:=10*r+d[i]; d[i]:=r/2;
  15.             r:=r-2*d[i]; put#0(d[i]+'0')
  16.       end;
  17.       d[k]:=5; put#0('5',13,10)
  18.    end
  19. end.
  20.