1000以内的勾股数的算法流程图描述

上节课给学生布置了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.结束。

流程图如下：

 

 

下面是另一种算法，效率高一些。

 

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初值问题。。。