VB.net & java ---- 百元买百鸡题目

前端之家收集整理的这篇文章主要介绍了VB.net & java ---- 百元买百鸡题目前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

百元买百鸡: 设 花一百元买鸡 公鸡:5元 母鸡:3元 小鸡1元3只

求买鸡的方案

java代码

  1. import java.util.*;
  2.  
  3. public class helloworld {
  4.  
  5. public static void main(String[] args) {
  6. int count=0;
  7. for(int i=0;i<20;i++){
  8. for(int j=0;j<34;j++){
  9. for(int z=0;z<300;z=z+3){
  10. if((5*i+3*j+z/3==100)&&(i+j+z==100)){
  11. System.out.println("母鸡:"+i+"公鸡:"+j+"小鸡:"+z);
  12. count++;
  13. }
  14. }
  15. }
  16. }
  17. System.out.println("方案公有:"+count+"种");
  18.  
  19. }
  20.  
  21. }


效果

vb.net代码

  1. Module Module1
  2.  
  3. Sub Main()
  4. Dim count,i,j,k As Integer
  5. count = 0
  6. For i = 0 To 20
  7. For j = 0 To 34
  8. For k = 0 To 300
  9. If (((5 * i) + (3 * j) + (k / 3) = 100) And (i + j + k = 100)) Then
  10. Console.WriteLine("母鸡:{0}" + "公鸡:{1}" + "小鸡:{2}",k)
  11. count = count + 1
  12. End If
  13. Next k
  14. Next j
  15. Next i
  16. Console.WriteLine("有{0}种方案",count)
  17. Console.ReadLine()
  18. End Sub
  19.  
  20. End Module

效果

猜你在找的VB相关文章