主题：高手请进,帮个忙吧``~`~~
迷路的天使
[专家分：1340] 发布于 2007-11-24 12:41:00
用随机数函数产生数据,设计二位整数的加,减,乘算式个1题(减法算式应保证被减数大于减数).让学生回答,由计算机给出正确与否的判断,并最后给出总得分.得分按如下计算:算对加,减法各得30分,算对乘法得40分,算错得0分.然后由计算机输出询问信息,学生选择回答,以决定是否继续一次新的测验.
[fly]帮帮忙吧 谢谢`~`~~~~~[/fly]
[em18][em20][em12][em10][em9][em1][em6][em2][em16][em13][em18][em20][em25][em28][em57][em71][em51][em53][em38][em38][em70][em70]
回复列表 （共4个回复）
沙发
在蓝天fi5 [专家分：80] 发布于 2007-11-24 13:50:00
别总把小学问题提出来,难看的
板凳
迷路的天使 [专家分：1340] 发布于 2007-11-24 14:41:00
"高手'',请做呀!
3 楼
小地小地 [专家分：300] 发布于 2007-11-24 15:24:00
切~~他不做我做
1:randomize
a:=random(99);
b:=random(99);
writeln(a,'*',b,'=');readln(s);
if s=a*b then f:=f+40;
a:=random(99);
b:=random(99);
writeln(a,'+',b,'=');readln(s);
if s=a+b then f:=f+30;
2:a:=random(99);
b:=random(99);if a<b then goto 2
writeln(a,'-',b,'=');readln(s);
if s=a-b then f:=f+30;
a:=random(99);
b:=random(99);if a mod b<>0 then goto 3;
writeln(a,'/',b,'=');readln(s);
if s=a/b then f:=f+40;
writeln(f,'分 1to 重来else over');
readln(l);
if l=1 then goto 1
用子程序控制符号更简明
4 楼
在蓝天fi5 [专家分：80] 发布于 2007-11-24 16:26:00
还有
program cctvwc;
label 1;
var a:integer;c:sting;
procedure sss(s:char);
var y1,y2,ds:integer;
begin
randomize;
y1:=random(99)+10;
y2:=random(99)+10;
case s of
'/':if y1 mod y2<>0 then sss('/');write(y1,s,y2);
'*':write(y1,s,y2);
'-':if y1<y2 then sss('-');write(y1,s,y2);
'+':write(y1,s,y2);
end;
readln(ds);
case s of
'/':if ds=y1 div y2 then a:=a+40;
'*':if ds=y1 * y2 then a:=a+40;
'-':if ds=y1 - y2 then a:=a+30;
'+':if ds=y1 + y2 then a:=a+30;
end;
end;
begin
sss('+');
sss('-');
sss('*');
sss('/');
writeln(a,'are you aging:yes or no');
readln(c);
if c=yes then goto 1
end.
我来回复
您所在位置：