Question

已知三角形的周长为21厘米，求三角形的三边，要求边为整数，有多少种

已知三角形的周长为21厘米，求三角形的三边，要求边为整数，有多少种方案？怎么用编程实现呀😊

Answer 1

共有12种方案。代码（VB）如下：

Dim a As Integer, b As Integer, c As Integer, i As Integer

i = 0

Text1.Text = ""

For a = 1 To 10

For b = a To 10

For c = b To 10

If ((a + b + c) = 21) And ((a + b) > c) And (Abs(a - b) < c) Then

i = i + 1

Text1.Text = Text1.Text & i & vbTab & vbTab & a & vbTab & b & vbTab & c & vbCrLf

End If

Next

Next

Next

介绍

编译方式下，首先通过一个对应于所用程序设计语言的编译程序对源程序进行处理，经过对源程序的词法分析、语法分析、语意分析、代码生成和代码优化等阶段将所处理的源程序转换为用二进制代码表示的目标程序。

然后通过连接程序处理将程序中所用的函数调用、系统功能调用等嵌入到目标程序中，构成一个可以连续执行的二进制执行文件。调用这个执行文件就可以实现程序员在对应源程序文件中所指定的相应功能。

Answer 2

列举出有11种方案 1+10+10；2+9+10；3+8+10；3+9+9；4+7+10；4+8+9；5+6+10；5+7+9；5+8+8；6+7+7；7+7+7
3要点（1）整数;（2）a+b+c=21;（3）a+b＞c(任意两边之和大于第三边)

Answer 3

共有12种方案。代码（VB）如下：
Dim a As Integer, b As Integer, c As Integer, i As Integer
i = 0
Text1.Text = ""
For a = 1 To 10
For b = a To 10
For c = b To 10
If ((a + b + c) = 21) And ((a + b) > c) And (Abs(a - b) < c) Then
i = i + 1
Text1.Text = Text1.Text & i & vbTab & vbTab & a & vbTab & b & vbTab & c & vbCrLf
End If
Next
Next
Next