用perl语言 随机生成100道100以内加减乘除法题目,一行4个
答案:2 悬赏:0
解决时间 2021-02-17 09:24
- 提问者网友:枯希心
- 2021-02-16 10:38
用perl语言 随机生成100道100以内加减乘除法题目,一行4个
最佳答案
- 二级知识专家网友:萝莉姐姐鹿小北
- 2021-02-16 11:28
虽然我很聪明,但这么说真的难到我了
全部回答
- 1楼网友:眠于流年
- 2021-02-16 12:50
for (1..100)
{
print rand100(), "=? ";
print "\n" if ($_%4 == 0);
}
sub rand100{
my $op = int(rand(4));
my ($m, $n);
while (1) {
$m = int(rand(50))+1;
if ($op == 0) {
$n = int(rand(100-$m))+1;
return "$m+$n";
}
elsif ($op == 1) {
$n = int(rand(100))+1;
return "$n-$m" if ($m < $n);
return "$m-$n";
}
else {
$n = int(rand(100/$m))+1;
next if ($m == 1 || $n == 1);
return "$m*$n" if($op == 2);
$m = $m*$n;
return "$m/$n";
}
}
}
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯