Tcl小程式從1加到100的實例代碼

         做測試也有將近兩年了吧，平常的時間都被那些忙不玩工作給佔據了，呵呵，靜下心來後，感覺自己還是要學點東西，只是工作的機器可不行啊。 Tcl語言，平常工作接觸一點點，公司有個牛人用這在用，用處還真大。於是自己也開始學吧，對程式設計還是有點點興趣的，哈哈。

         如何學習？光看書不行啊，還是以練促學吧，用for循環和while循環寫了一個從1加到100的小程序，別看簡單，還花了不少精力，先前不通，不是這錯就是那錯。慢慢來吧，呵呵，給自己加油！

for {set i 1;set j 0} {$i<=100} {incr i 1} {
set j [expr ($j+$i)]
} ; return $j ;

set i 1
set j 0
while {$i<=100} {
set j [expr ($ j+$i)] 
set i [expr ($i+1)]
} ; return $j ;

         自己感覺，學習一樣新東西，剛開始是耐心，然後是恆心吧，呵呵，因為剛開始容易急，而後來就容易放棄。 。 。

         [creat by liweikui, May 6,2009]

以上是Tcl小程式從1加到100的實例代碼的詳細內容。更多資訊請關注PHP中文網其他相關文章！