请教一个TCL 的问题???

Susan1202

在script.net 的环境下,for 语句可以嵌套吗? 今天在家里try 拉好长时间也没做出来?不知那为高手指点一下. 谢谢.

zhangchen

可以嵌套的啊！给你个例子参考：
int main(int argc, char* argv[])
{
int i,j,MAX;
char temp;
char a[100];
  printf("input the MAX numbers:\n");
  scanf("%d",&MAX);
  for (i=0;i<MAX;i++)
   scanf("%d",&a);
  printf("\n");
  for(i=0;i<MAX-1;i++)
   for (j=0;j<=MAX-i-1;j++)
   { if (a[j] > a[j+1])
    {
     temp = a[j];
     a[j] = a[j+1];
     a[j+1] = temp;
    }
   }
  printf("the sorted numbers:\n");
  for (i=0;i<MAX;i++)
   printf("%c ",&a);
  printf("\n\n");

/*printf("Hello World!\n");*/
return 0;
}

gzj_06

原帖由 zhangchen 于 2007-5-29 21:24 发表
可以嵌套的啊！给你个例子参考：
int main(int argc, char* argv[])
{
int i,j,MAX;
char temp;
char a[100];
  printf("input the MAX numbers:\n");
  scanf("%d",&MAX);
  for (i=0;i

晕,人家问的是TCL,你整出个C程序出来

不过按道理,TCL的也应该可以,但我的Script.Net出问题了,所以不好试

Susan1202

是呀, zhangchen 大哥, 我问的是tcl 的问题呀, 加油,给个例子

zhangchen

复制错了，不好意思，哈哈

zhangchen

给你个程序，语法通过了，可是功能不对。帮忙调试下
set f1 [open "c:/data.txt"]
set f2 [open "c:/result.txt" w]
set i 0
while {![eof $f1]} {
gets $f1 a($i)
incr i
}
incr i -1
for {set b 0} {$b<=[expr [llength a(0)]-1]} {incr b} {
for {set c 0} {$c<=$i} {incr c} {
lappend h [lindex $a($c) $b]
}
puts $f2 $h
set h ""
}
close $f1
close $f2

yukisure

set f1 [open "c:/data.txt"]
中括号里少了个r吧？貌似set f1 [open "c:/data.txt" r]

for {set b 0} {$b<=[expr [llength a(0)]-1]} {incr b} {
a(0)前应该有个$吧？貌似for {set b 0} {$b<=[expr [llength $a(0)]-1]} {incr b} {

hoho乱侃乱侃一下，我的作业也还没调试出来sdlkfj1

Susan1202

Yukisure. very smart.
" for {set b 0} {$b<=[expr [llength a(0)]-1]} {incr b} {
a(0)前应该有个$吧？貌似for {set b 0} {$b<=[expr [llength $a(0)]-1]} {incr b} {................"
几正却的.