﹝學習記錄﹞- Perl – 四捨五入 

入門學習中… ^^

函式 int() ,例: int(3.125)=3

指數運算子 **: 3**2=9;   $a **=4     $a= $a**4

 

#!/usr/bin/perl -w

#===================================================================

#Modification Record

#===================================================================

#===================================================================

#Global Scope

#===================================================================

use strict;

#===================================================================

#Subroutine Program

#===================================================================

#===================================================================

#Main Program

#===================================================================

my $cal=1;

 

while($cal){

  my $val;

  my $num;

  my $dec;

  my $n_int;

  my $final;

  my $ans;

 

  print "\n    Please enter a float number: ";

  $val=<>;

  chomp $val;

  print "    Please enter the digital number: ";

  $num=<>;

  chomp $num;

 

  $dec=$val*(10 ** $num);  # **指數

  if ($val >0){

    $n_int=int($dec+0.5);

  }else{

    $n_int=int($dec-0.5);

  }

 

  $final=$n_int/(10 ** $num);

  print '-'x50,"\n";

  print "    Result:  $final \n";

  print '-'x50,"\n";

 

  print "    Do you want to try it again? (y/n) ";

  chomp($ans=<>);

 

  #if ($ans =~/y/i){  #現在知道這是正規算式了^^

  if ($ans eq 'y' or $ans eq 'Y' or $ans eq 'yes' or $ans eq 'Yes') {  #還沒學到正規算式XP

    print '='x50, "\n";

  }else{

    $cal="";

    print "\n";

  }

}

執行程式範例:

 

, , ,

yunyun 發表在 痞客邦 PIXNET 留言(0) 人氣()