百钱百鸡

redspider

这是一个习题，说百钱买百鸡的问题，想必大家都看过，各位大侠帮我看看
这个程序有什么问题啊。:thank

1. #!/usr/bin/perl -w
   
2. print "cock  hen  chick";
   
3. for($co=0; $co<=100; $co++)
   
4.   { for($he=0; $he<=100; $he++)
   
5.      { $ch=100-$co-$he;
   
6.        if(5*$co+3*$he+$ch/3=100)
   
7.          { print "$co  $he  $ch"}
   
8.      }
   
9.   }

复制代码

KornLee

if(5*$co+3*$he+$ch/3 eq 100)
另外,print的字符串后面要加"\n"

redspider

谢谢javalee，但是解释器报的是这些错误：

1. syntax error at d.pl line 3, near "0;"
   
2. syntax error at d.pl line 3, near "++)
   
3. "
   
4. syntax error at d.pl line 4, near "++)
   
5.   "
   
6. syntax error at d.pl line 8, near "}"

复制代码

redspider

sorry,sorry. 是我在源程序里把print语句后面的;号漏掉了 :p

devel

公鸡最多能有100/5=20只，母鸡最多能有(100-100 % 3)/3 ==33 只。

1. 
   
2. #!/usr/bin/perl -w
   
3. print "cock hen chick\n" ;
   
4. for( $a=0 ; $a <= 20 ; $a++ ) {
   
5.      for( $b=0 ; $b <= 33 ; $b++ ) {
   
6.             for( $c=0 ; $c <= 100 ; $c++ ) {
   
7.                   if($a*5+$b*3+$c== 100) {
   
8.                           print "$a $b $c \n";
   
9.                   }
   
10.             }
    
11.      }
    
12. }
    

复制代码

seablue

今天刚做到这个习题：

1. 
   
2. #!/usr/bin/perl -w
   
3. print "cock\then\tchick\n" ;
   
4. for( $a=1 ; $a < 20 ; $a++ ) {
   
5.      for( $b=1 ; $b < 33 ; $b++ ) {
   
6.             for( $c=1 ; $c <= 100 ; $c++ ) {
   
7.                   if(($a*5+$b*3+$c/3== 100)&&($a+$b+$c== 100)) {
   
8.                           print "$a\t$b\t$c \n";
   
9.                   }
   
10.             }
    
11.      }
    
12. }
    

复制代码

pandalcg

1. 
   
2. #!/usr/bin/perl -w
   
3. print "Problem:\n\tcocks\thens\tchicken\n" ;
   
4. for( $a=1 ; $a < 20 ; $a++ ) {
   
5.      $free=100-5*$a;
   
6.      for( $b=1 ; $b < $free/3 ; $b++ ) {
   
7.             if ($free-$b*3==(100-$a-$b)/3) {
   
8.                 $c=100-$a-$b; print "\t$a\t$b\t$c\n";
   
9.             }
   
10.                                                                                 
    
11.     }
    
12. }
    

复制代码

seablue

呵呵，不错啊:thank