回 帖 发 新 帖 刷新版面

主题:谁能帮我用DO ---LOOP UNTIL 编程,求助!!!!!

求助!求助·!!
[em12]为小学生编写一个一位数加法运算的练习程序。
  先让学生选择难度:A,B
  难度A:程序一共产生10道题(由计算机随机产生),在屏幕上依次显示各题,要求学生输入答案,每道题有两次回答机会。只要答对一次即给10分,两次都未答对不给分。
  难度B:程序一共产生10道题(由计算机随机产生),在屏幕上依次显示各题,要求学生输入答案,每道题只给一次回答机会。答对给10分,未答对不给分。
  每当所有题都答完时,在屏幕上显示本次练习成绩,并询问是否再来一次;选择“Y”,则重新选择难度,再来一次;选择“N”,退出练习程序。
 
求各位高手用DO --LOOP UNTIL来编写,真诚拜托了,谢谢了

回复列表 (共3个回复)

沙发


板凳

input n
randomize n
s=0
i=1
if
do
a=int(90*rnd+10)
b=int(90*rnd+10)
print a;"+";b;"=";
input c
  if c=a+b then
  print "Right"
  s=s+10
  else
  print "Wrong,again"
  print a;"+";b;"=";
  input c
    if c=a+b then
    print "Right"
    s=s+10
    else
    print "Wrong"
    end if
  end if
i=i+1
loop until i>10
print "Your poit is";s
end

3 楼

RANDOMIZE TIMER
CLS
DO
  PRINT "You must get a minimum of 10 questions right to quit."
  count = 0
  DO
    x = INT(10 * RND)
    y = INT(10 * RND)
test:
    PRINT x; "+"; y; "=";
    INPUT " ", z    'press Ctrl + C to quit
    IF z = x + y THEN
      count = count + 1
      PRINT " Right"; count
    ELSE
      PRINT " Wrong,Do it again:"
      GOTO test
    END IF
  LOOP UNTIL count = 10
  INPUT "Quit (y/n)"; s$
LOOP UNTIL UCASE$(s$) = "Y"
END

我来回复

您尚未登录,请登录后再回复。点此登录或注册