用随机函数Random(10)设计一个自动出题的程序(200分)

  • 主题发起人 主题发起人 13325
  • 开始时间 开始时间
1

13325

Unregistered / Unconfirmed
GUEST, unregistred user!
自动出10以内的算术运算题(+,-,*,/);
回答正确时没题得10分;
以百分为基准,每执行一次程序出10道算术题;
 
把你的E-MAIL地址留下来,我用DELPHI写了一个
 
给你一段自动出题的代码
procedure TForm1.Button1Click(Sender: TObject);

var
I: Integer;
begin
Randomize;
for I := 1 to 10 do begin
Canvas.TextOut(20,I*20,
IntToStr(Random(9)+1)+'×'+IntToStr(Random(9)+1)+'=');
Canvas.TextOut(220,I*20,
IntToStr(Random(100))+'+'+IntToStr(Random(100))+'=');
end;
end;
上面是100内随机出题的例子
 
我做了一个专门用于公式翻译的程序,用的是编译原理里面的波兰表达式,效果很好!
一共包含了+,-,*,/,(,)共六种操作运算符,可以自己出题,也可以随机出题,感兴趣的
话,发e-mail:XiuGuo@263.net
 
给你推荐一本书,《delphi时尚编程100例》里面的第一例就是你的问题
 
不是想让写好发给你吧
 
random(x)前要先randomize
 
这种问题...... 没挑战性.......
 
以前.做过的...没什么问题的..
 
太阳火,说的是对的!
 
后退
顶部