如何用EXCEL或C语言求解三元一次方程的所有正整数解组 比如33a+42b+53c=46580,求a,b,c,并显示如果要求正整数和有一位小数点的所有值呢,该怎么做比如 331a+662b+993c=198800,求a,b,c.

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/26 23:24:39
如何用EXCEL或C语言求解三元一次方程的所有正整数解组比如33a+42b+53c=46580,求a,b,c,并显示如果要求正整数和有一位小数点的所有值呢,该怎么做比如331a+662b+993c=1

如何用EXCEL或C语言求解三元一次方程的所有正整数解组 比如33a+42b+53c=46580,求a,b,c,并显示如果要求正整数和有一位小数点的所有值呢,该怎么做比如 331a+662b+993c=198800,求a,b,c.
如何用EXCEL或C语言求解三元一次方程的所有正整数解组 比如33a+42b+53c=46580,求a,b,c,并显示
如果要求正整数和有一位小数点的所有值呢,该怎么做
比如 331a+662b+993c=198800,求a,b,c.

如何用EXCEL或C语言求解三元一次方程的所有正整数解组 比如33a+42b+53c=46580,求a,b,c,并显示如果要求正整数和有一位小数点的所有值呢,该怎么做比如 331a+662b+993c=198800,求a,b,c.
鼠标右击Sheet1的标签【查看代码】,在代码窗口粘贴下面的代码:
Sub ouyang()
For a = 1 To 1412
For b = 1 To 1412
c = (46580 - 33 * a - 42 * b) / 53
If c > 0 And (c = Int(c)) Then
t = t + 1
Cells(t, 1) = a: Cells(t, 2) = b: Cells(t, 3) = c
End If
Next
Next
End Sub
按 F5 运行程序,按Alt + F11回到Excel就可看到有 14671组解!