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