tcl

foreach

#!/usr/bin/tcl
set list { watasi ha tensai }

foreach list_val $list {
   puts $list_val
}

while

#!/usr/bin/tcl
set x 1
while {$x <= 5} {
puts $x
incr x
}

for

for {set i 0} { $i < 10 } {incr i } {
   puts $i
}

for {set j 9} { $j >= 0 } {incr i -1} {
   puts $j
}

---

トップページ