Perl 编程/练习 1

入门，显示文本

任务：创建一个 Perl 程序，显示“Hello world”，然后退出。

#!/usr/bin/perl

print "Hello world";
exit();

显示数字

尝试自己完成以下练习

• 将数字 4000/7 放入一个变量，并将其显示在屏幕上。
• 修改程序，将数字显示为小数点后 3 位。（提示：众所周知的 printf 在 Perl 中有效！)
• 修改程序，如果最后一位小数大于 5，则向上取整
• 修改程序，在数字前面显示前导零
• 修改程序，如果数字为正，则显示“+”号，并检查如果从数字中减去 1000，它是否能正确显示“ - ”号。

#!/usr/bin/perl

my $divisionResult = 4000/7;
print "Result of 4000 divided by 7 is $divisionResult";

函数

编写一个函数来计算二次方程的根，您需要将系数 a、b、c 传递给函数，它将返回 x 的两个值。

整合所有内容

将这些程序组合成一个程序，该程序

• 在屏幕上显示标题
• 创建 3 个随机数 (a、b、c)
• 以整齐的格式显示这些数字
• 使用这些数字作为二次方程的系数，计算并显示两个根。

答案

下一练习