討論區快速選單
知識庫快速選單
政府補助!學嵌入式+物聯網 討論區最近新進100則主題
[ 回上頁 ] [ 討論區發言規則 ]
簡單的計算圓周問題
更改我的閱讀文章字型大小
作者 : xyza(azyx)
[ 貼文 8 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/12/20 上午 11:08:19
程式目的:

請使用者輸入一半徑值
判斷此值的正負號
如果為負則輸出圓周值為零
為正則正常輸出圓周值

程式問題:

程式可以輸入負值
但編譯會出現以下錯誤
undifined subroutunes 在if (&radius < 0)那行

程式內容:

$radius ;

print "請輸入半徑值:";
$radius = <STDIN>;

if (&radius < 0){
    print "圓周長為0\n";
}else{
    $circum = 2*3.142*$radius;
    print "半徑為$radius\n";
    print "圓周長為$circum\n";
}
作者 : ozzy123(ozzy) 資訊類作業求救卓越專家C++卓越專家貼文超過4000則人氣指數超過30000點
[ 貼文 4462 | 人氣 37262 | 評價 10860 | 評價/貼文 2.43 | 送出評價 49 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/12/20 下午 04:14:02
would you please post the error message ?
作者 : xyza(azyx)
[ 貼文 8 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/12/21 上午 08:57:55
我知道錯誤在哪了

if(&radius < 0) 應改成 if($radius < 0)
作者 : turing(Alan)
[ 貼文 63 | 人氣 0 | 評價 300 | 評價/貼文 4.76 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/12/23 下午 03:08:37
玩玩語法,稍改一下。

use strict;
use constant PI => 3.142;

print "請輸入半徑值:";
chomp(my $radius = <>);
print ($radius < 0 ? "圓周長為0" : ("半徑為$radius\n圓周長為", (2 * PI * $radius)), "\n");

exit 0;
 板主 : 徵求中
 > Perl - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Perl - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Perl
1 HKLN.net 2850 
2 Benson 480 
3 Jsn 470 
4 pail 240 
5 可愛處理器 170 
6 菜鳥小德 160 
7 mrhsuap 160 
8 kalua 120 
9 110 
10 jackkon 100 
Perl
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.03125