perl 2.1.2 练习

1.写一个程序，计算半径为12.5的圆的周长。

圆周长为2pi*半径

$radius = 12.5;

$perimeter = $radius*2*3.141592654;

print "perimeter is $perimeter";

2.修改上述程序，用户可以在程序运行时输入半径，如果用户

输入12.5，那么结果就和上题一样。

$radius = <STDIN>;

$perimeter = $radius*2*3.141592654;

print "perimeter is $perimeter";

3.修改上述程序，当用户输入小于0的数字时，程序输出周长为0，而非负数。

$radius = <STDIN>;

if($radius<0)

{

$perimeter = 0;

}

else

{

$perimeter = $radius*2*3.141592654;

}

print "perimeter is $perimeter";

4.写一个程序，用户能输入2个数字（不在同一行），输出两个数乘积。

$value_1 = <STDIN>;

$value_2 = <STDIN>;

$result = $value_1 * $value_2;

print "perimeter is $result";