perl习题

Posted 2021-06-04 生信小猪

1、写一个程序，计算在半径为12.5时，圆的周长应该是多少。圆周长是半径的长度乘上2π（大约是2乘以3.141592654）。计算结果大约是78.5。

#!/usr/bin/perl -w #前面是perl的安装路径，加上-w选项对要运行的程序开启警告功能$pi = 3.141592654; #将$pi的值设成我们需要的π的值。这种使用常量的做法有许多好处：在3.141592654重复出现时，可以节省键入时间，在修改π值的时候易于维护$circle = 2*$pi*12.5; #计算圆周长并把它保存在$circle内print "The circumference of radius 12.5 is $circle.\n"; #只要是合格的程序，每行的输出都该以换行符结尾。

2、修改上题的程序，让它提示用户键入半径的长度。当用户键入12.5时，出来的结果应该与上题相同。

#!/usr/bin/perl -w #前面是perl的安装路径，加上-w选项对要运行的程序开启警告功能$pi = 3.141592654; #将$pi的值设成我们需要的π的值。这种使用常量的做法有许多好处：在3.141592654重复出现时，可以节省键入时间，在修改π值的时候易于维护print "What is the radius?";chomp($radius = <STDIN>); #提示用户键入半径长度，然后用$radius(半径)代替前一题已经写死的12.5；读入文字，略过最后的换行符$circle = 2*$pi*$radius; #计算圆周长并把它保存在$circle内print "The circumference of a circle of radius $radius is $circle.\n"; #只要是合格的程序，每行的输出都该以换行符结尾。

3、修改上题的程序，当用户键入小于0的半径时，输出0，而不是负数。

#!/usr/bin/perl -w #前面是perl的安装路径，加上-w选项对要运行的程序开启警告功能$pi = 3.141592654; #将$pi的值设成我们需要的π的值。这种使用常量的做法有许多好处：在3.141592654重复出现时，可以节省键入时间，在修改π值的时候易于维护print "What is the radius?";chomp($radius = <STDIN>); #提示用户键入半径长度，然后用$radius(半径)代替前一题已经写死的12.5$circle = 2*$pi*$radius; #计算圆周长并把它保存在$circle内if ($radius < 0){ $circle = 0;}print "The circumference of a circle of radius $radius is $circle.\n"; #只要是合格的程序，每行的输出都该以换行符结尾。

4、写一个程序，提示用户键入两个数字（分两行键入），然互输入两者的乘积。

#!/usr/bin/perl -w #前面是perl的安装路径，加上-w选项对要运行的程序开启警告功能print "The first number:";chomp($one = <STDIN>);print "The second number:";chomp($two = <STDIN>);$result = $one*$two;print "The result is $result";

5、写一个程序，提示用户键入一个字符串及一个数字（分两行键入），然后以数字为重复次数，连续输出字符串（提示：使用x操作符）。在用户键入“fred”和“3”时，应该输出3行“fred”;如果用户键入的是"fred”与“299792”,输出结果应该是一大堆。

#!/usr/bin/perl -w #前面是perl的安装路径，加上-w选项对要运行的程序开启警告功能print "Enter a string:";$str = <STDIN>;  #没有对第一行输入的字符串进行chomp，因为题目上要求将重复的每一行分开显示。这样一来，假设用户输入的字符串是fred与换行符，而重复次数为3时，每行的fred后面就都会正确地加上换行符。这样我们不必在print输出结尾加上换行符，因为$result应该已经是以换行符结尾了。print "Enter a number:";chomp($number = <STDIN>);$result = $str x $number;print "The result is:\n$result";