- 论坛徽章:
- 0
|
关注Tcl/Tk语言的朋友请进
一段用来sum的tcl代码:
- #!/usr/bin/env tclsh
- # sums.tcl by Dr. I. for CS 101 during Fall, 1999
- # This script computes the sum of the positive and
- # negative numbers entered
- set sumOfPositives 0
- set sumOfNegatives 0
- puts stdout "Enter a number (0 to quit)"
- gets stdin number
- while {$number != 0} {
- if {$number >; 0} {
- set sumOfPositives [expr $sumOfPositives + $number]
- } else {
- set sumOfNegatives [expr $sumOfNegatives + $number]
- }
-
- puts stdout "Enter another number (0 to quit)"
- gets stdin number
- }
- puts stdout "The sum of the positives is $sumOfPositives"
- puts stdout "The sum of the negatives is $sumOfNegatives"
复制代码 |
|