主题：请各位高手帮个忙吧！感激涕零！
fyxzzyy
[专家分：0] 发布于 2006-03-25 09:15:00
设计一个乘法学习器。具体功能为：1）进行学习，向学习者显示九九乘法表。2）进行测验：随机给出学生任意两个0-9之间的数，要求学生给出答案，如果能连续正确的回答十个问题，则通过测验，否则便属失败。可以重复进行测验。[em2]
[fly]题有点烦,但是请各位高手务必帮帮忙!![/fly]
回复列表 （共2个回复）
沙发
贺天行宝 [专家分：2300] 发布于 2006-03-25 14:24:00
var
i,j,k,l,m,n:longint;
s:string;
begin
randomize;
for i:=1 to 9 do
begin
for j:=1 to i do
write(i,'*',j,'=',i*j,' ');
writeln;
end;
writeln('questions for ten');
i:=1;
while i<=10 do
begin
k:=random(9)+1;l:=random(9)+1;
writeln(i,'.',k,'*',l,'=?');
readln(j);
if j=k*l then begin writeln('right!'); inc(i); end
else begin writeln('wrong,continue? Y/N ');
readln(s);
if s='Y' then i:=1 else halt; end;
end;
writeln('well done!');
for i:=1 to 100000000 do begin j:=1; end;
end.
板凳
贺天行宝 [专家分：2300] 发布于 2006-03-25 14:25:00
加分
我来回复
您所在位置：