上节课给学生布置了3道课后作业题，其中一道题目是求1000以内的勾股数，用流程图描述出来。这节课上课前就要评讲的，本着对学生负责的态度，我也认真去思考了这3道题，其中就数这道最难。想上网搜搜又没有现成的，结果没有。琢磨了半个多小时，最后终于画出来了，读大学的时候还没这么认真过呢。可谁叫俺现在是老师呢？不能误人子弟啊。还好，学生初次接触，不明白，有了流程图给他们一讲，明白了，学生学的挺认真的，真不错！
自然语言描述：
1.对每一个a（a=1,2,3,……，1000），做下一步；
2.对每一个b（b=a+1,2,3,……，1000），做下一步；
3.对每一个c（c=b+1,2,3,……，1000），做下一步；
4.如果a*a+b*b=c*c，则输出a,b,c的值；
5.结束。
流程图如下：
自然语言描述：
1.对每一个a（a=1,2,3,……，1000），做下一步；
2.对每一个b（b=a+1,2,3,……，1000），做下一步；
3.对每一个c（c=b+1,2,3,……，1000），做下一步；
4.如果a*a+b*b=c*c，则输出a,b,c的值；
5.结束。
流程图如下：
下面是另一种算法，效率高一些。
Private Sub Command1_Click()
For a = 1 To 1000
For b = 1 To 1000
For c = 1 To 1000
If c ^ 2 = a ^ 2 + b ^ 2 Then
Print "a="; a, "b="; b, "c="; c
End If
Next c
Next b
Next a
End Sub
优化后
Private Sub Command1_Click()
For a = 1 To 998
For b = a + 1 to 999
p = a ^ 2 + b ^ 2
c = Sqr(p)
If (c <= 1000 And c - c / 1 = 0) Then
Print "a="; a, "b="; b, "c="; c
End If
Next b
Next a
End Sub
讲过后，第一个图好象有点问题，，，，看看下面的。。。流程线的问题。循环后B,C初值问题。。。
