TCL fundamentalsanother example

set i 0

while {$i < 10} {

puts "$i squared = [expr $i*$i]"

incr i

}

Previous slide

Next slide

Back to first slide

View graphic version