- 博客(2)
- 收藏
- 关注
RSS订阅原创 VB.NET 应用：sum=1+1/2+2/3+3/5+5/8+...
Dim a%, b%, count% Dim Item As Single, t As Integer Dim sum As Single sum = 1 a = 1 : b = 1 Do t = a + b Item = a / t sum =
2008-05-10 13:27:00
1367
原创 VB.NET，实际应用：求最短残料。
有一根长度为321米的钢材料，要将它截取成两种规格a、b的长度分别为17米和27米的短料，每种至少 1 段，问分隔成 a，b 各多少段后，剩余的残料 r 最少？分析：该题利用“试凑法”通过二重循环求残料 r 的最小值(正数)，残料不可能是负数。Dim a%, b%, r!, ia%, ib% r = 321 ‘ 最小
2008-05-10 12:47:00
1322
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人