如何从数组中查找最接近500的数字！

zhangfenyun

   假如有一个数值，里面的数字都是按照大小排列好了的！

    数值A里面的值有：250  300 350 400 450  600 700 800

   要赋予一个值给函数B,但是这个值必须不能大于500！可以等于500 （这个实例就是给函数B为450）


   1,首先判断这个数组里面有没有500，如果有，那么函数B赋予500

   2,再判断这个数组里面有没有450，如果有，那么函数B赋予450


   3,再判断这个数组里面有没有400，如果有，那么函数B赋予400

  4,再判断这个数组里面有没有350，如果有，那么函数B赋予350

  5,再判断这个数组里面有没有300，如果有，那么函数B赋予300
  6,再判断这个数组里面有没有250，如果有，那么函数B赋予250

  7,最后判断：如果这个数组里面所有的值都大于500，那么就函数B赋予500

  1,2,3,4,5,6,7点问题依次去判断

huang6894

一个笨方法：

1. @a=(250,300,350,400,450,600,700,800);
   
2. $p=0;
   
3. foreach $tmp (@a){
   
4. if (($p lt $tmp)&&($tmp lt 501)){
   
5.     $p=$tmp;
   
6. }
   
7. }print $p;
   

复制代码

我刚开始学perl，不要见怪

huang6894

1. @a=(250,300,350,400,450,600,700,800);
   
2. foreach $tmp (@a){
   
3.     $p=($tmp<500)?$tmp:$p
   
4. }
   
5. $t=($p)?$p:500;
   
6. print $t;
   

复制代码

jason680

回复 1# zhangfenyun

use strict;
use warnings;

my @aData = (250,300,350,400,450,600,700,800);
my $sN500 = get_num(500, @aData);
print "$sN500\n";

sub get_num{
  my($sNum, @aData) = @_;
  my $sRet = "";
  foreach (@aData){
    if($_ <= $sNum){
      if($sRet eq ""){
        $sRet = $_;
      }
      elsif($sRet < $_){
        $sRet = $_;
      }
    }
  }
  return $sRet eq "" ? $sNum : $sRet;   
}
   

pitonas

1. 1,首先判断这个数组里面有没有500，如果有，那么函数B赋予500

复制代码

如果没有，那么函数B赋予 ?

zhangfenyun

  高！！！   佩服大家

flw

use List::MoreUtils qw(last_value);

my $B = last_value { $_ <= 500 } @A or 500;
print $B;

zhangfenyun

佩服大家！我也是新学的！我的QQ:251546505

想跟大家一起学习

104359176

我的汉语是在太差了，不知道问题是不是这样：

有一个数字数组A，里面的数字都是按照大小排列好了的！例如： 250  300 350 400 450  600 700 800

要赋予一个值给变量B, 这个值必须不能大于500！可以等于500 （这个实例就是给变量B为450）

规则：

   1,首先判断这个数组里面有没有500，如果有，那么变量B赋予500

   2,再判断这个数组里面有没有450，如果有，那么变量B赋予450

   3,再判断这个数组里面有没有400，如果有，那么变量B赋予400

  4,再判断这个数组里面有没有350，如果有，那么变量B赋予350

  5,再判断这个数组里面有没有300，如果有，那么变量B赋予300
  6,再判断这个数组里面有没有250，如果有，那么变量B赋予250

  7,最后判断：如果这个数组里面所有的值都大于500，那么就变量B赋予500

  1,2,3,4,5,6,7点问题依次去判断

zhangfenyun

是啊

谢谢大家，问题是那样的！