Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
q1q0
#tclsh 8.6 proc dec2bin int { set binRep [binary format c $int] binary scan $binRep B* binStr return $binStr } set v1 -10 set v2 10 set a [expr abs($v1)] puts $a if { $v1 == $a } { set M [ dec2bin $a ] set m [ dec2bin $v1 ] } else { set M [ dec2bin $a ] set m [ dec2bin $v1 ] } puts $M puts $m set q "[ dec2bin $v2 ]" puts q$q set A 0000 set n 4 while {$n != 0} { puts [lindex [lindex [split $q ""] 7 ] 6] set q1 [lindex [split $q ""] 6 ] #puts $q0 #puts $q1 #if { [join $q1 $q0] == 10 } { #puts $M} set n [expr $n -1] }
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
test
Perfect bin mul eo float
Perfect decimal to binary add
dssd
Dec to binary addition
eerewr
NISP - Wheel Movements 0.1
procedures.tcl
mysrc.tcl
NISP - Planning ID Unit Test
Please log in to post a comment.