frame .f text .f.text .f.text insert end "" pack .f.text pack .f proc potenza {ba es} { if {$es==0} { return 1 } set pot 1.0 if {$es>0} { for {set conta 0} {$conta < $es} {incr conta 1} { set pot [expr $pot * $ba] } return $pot } for {set conta 0} {$conta < [expr -1 * $es]} {incr conta 1} { set pot [expr $pot / $ba] } return $pot } .f.text insert end "10 ^ -3 = [potenza 10 -3]"

potenza.tcl