四則演算の問題を生成するプログラム

質問

『乱数を用いて生成する四則演算の問題を５つユーザーに答えさせて、最後に合計得点を表示するプログラムを作りなさい』
というperlの課題があるのですが、もうさっぱりお手上げになってしまいました。
どなたかお助け願えませんでしょうか？

回答No.2

BLUEPIXY

use strict;
use constant {
N => 5,
POINT => 10,
};

my @op = qw(* / + -);
my $point = 0;

for(my $i=0;$i < N ; $i++){
$a = int(rand(100));
$b = int(rand(100));
my $op = $op[rand(@op)];
my $exp = "$a $op $b";
print "$exp = ";
my $ans = <>;
my $result=eval($exp);
if($ans == $result || abs($ans - $result) < 0.005 ){
print "正解！\n";
$point += POINT;
}
}
print "成績:$point/" . POINT * N . "\n";

回答No.1

kosa

ランダムな数字で計算問題を5問作成して、5問の答えの合計を表示するプログラムってことですよね？
まずランダム関数を使って計算問題を作成するプログラムを作ればよいと思います。
全体を一気に考えるのは難しく捕らえてしまうので、１つ１つを細かく分解して考えれば楽になります