Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Trail
set value1 -10 set value2 -10.68447 puts $value1 puts $value2 set tcl_precision 4 set values {} set S 0 proc dec2bin i { set list {} set A [expr {$i} ] puts $A set B [expr {int($A) }] set C [expr {$A - $B}] set C [expr {abs($C)}] puts "$C ----1" set result {} set result1 {} if {$B<0} { set sign - set B [expr {abs ($B)}] puts "$sign $B ----1" } else { set sign {} puts "$B----2" } while {$B > 0} { set result [ expr { $B % 2 } ]$result set B [expr {$B/2}] } while {$C<1} { set result1 [expr {$C*2}] #puts "$result1 " set D [expr {int ($result1) }] #puts "$D" set E [expr {$result1 - $D}] #puts "$E" set C $E lappend list $D set llen [llength $list] #puts "$llen - - - 5" #puts "$list " if {$C==0} { break } } set S "$sign $result . $list" puts $S #puts "Final Result is : $sign $result . $list" } puts $S set sum [expr [dec2bin $value1] + 1] puts $sum
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Dec to binary addition
XorShift On Tcl
eerewr
NISP - Planning ID/Test ID
Practice TCL
Perfect bin mul eo float with Dec input
Santosh bin mul eo
Different factorial implementations
1
a
stackse - search stackoverflow differently
Please log in to post a comment.