UC知道关于perl的加法运算问题.在线等!急!答对加分!
来源：百度知道 编辑：UC知道 时间：2024/05/18 05:12:47
刚学perl语言几天 老师布置了一个作业
从键盘输入数字,输入"X",则程序结束,并显示前面输入的数字的总和.要用到"use strict"
这个是我写的 根本运行不了 高手帮忙给看看啊!多谢多谢!!
#!/perl-w!
use strict;
my $num=0;
my $sum=0;
print "Pls enter numbers,enter 'x' to end: ";
while($num ne "x")
{
$num=<STDIN>;
chomp($num);
$sum+=$num;
$num++;
print"The sum is $sum.";
}
从键盘输入数字,输入"X",则程序结束,并显示前面输入的数字的总和.要用到"use strict"
这个是我写的 根本运行不了 高手帮忙给看看啊!多谢多谢!!
#!/perl-w!
use strict;
my $num=0;
my $sum=0;
print "Pls enter numbers,enter 'x' to end: ";
while($num ne "x")
{
$num=<STDIN>;
chomp($num);
$sum+=$num;
$num++;
print"The sum is $sum.";
}
很简单啊
#!/usr/bin/perl
print "please insert the number you want to add: \n";
while ($a<<STDIN>)
{ $b+=$a;
$a+=1;
}
print "answer is $b\n";
呵呵，另外我是在linux下运行的，不是在windows哈，第一是指向运行程序，windows下改改就好了