Tcl アプレットを 1 から 100 まで追加するコード例

2年近くテストをやっているのですが、仕事で忙しいときは、ああ、落ち着いたらまだ何かを学ばなければいけないと思っていますが、マシンが動いていません。私は日常の仕事で Tcl 言語に少し触れていますが、社内に 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)]
} ;

新しいことを学ぶときは、最初は辛抱強く、次に忍耐力が必要だと思います（笑）。なぜなら、最初は不安になりやすいし、すぐに諦めてしまうからです。 。 。

[liweikui 作成、2009 年 5 月 6 日]

以上がTcl アプレットを 1 から 100 まで追加するコード例の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。