﹝學習記錄﹞- 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"; } } |
執行程式範例:
留言列表