Perl: 写如下程序：

来源：百度知道编辑：UC知道时间：2024/07/04 20:15:29

写一个程序，计算半径为12.5 的圆的周长。圆周长等于2（约为）乘以半径。
修改上述程序，使用户可以从键盘输入圆的半径。如果输入12.5，会得到和上述一样的结果。

第一个
#!/usr/bin/perl

$r=12.5;
$c=$r*3.14*2;
print "\$c\n";

修改后
#!/usr/bin/perl

$r=<STDIN>;
$c=$r*3.14*2;
print "$c\n";

#include <>
#define p 3.1415926
main()
{ float n;
float c;
scanf("%f",&n);
printf("c=%f",2*p*n);
}