回 帖 发 新 帖 刷新版面

主题:qbasic 程序设计题,很简单的!

程序设计题:
一、由键盘任意输入10个单精度数,找出其中最大和最小的数并输出。
二、将100------200之间不能被3整除也不能被7整除的数输出
三、计算1+2+22+23+24+25+………………+250的值,并打印输出
四、编程产生10个0至50之间的随机整数,并把这些随机数存放在一维数组a(10)中,并将其从大到小排序输出。

大家帮帮忙吧, 我实在不知道怎么写了!

回复列表 (共4个回复)

沙发

1.
Cls
Dim a(10)
For i = 1 To 10
  Input a(i)
Next i
For i = 1 To 9
  For j = i + 1 To 10
    If a(i) < a(j) Then Swap a(i), a(j)
Next j, i
Print "Max ="; a(i); "  Min="; a(10)
End

板凳

2
Cls
For i = 100 To 200
  If i Mod 3 > 0 And i Mod 7 > 0 Then Print i;
Next i
End

3 楼

3
Cls
s = 3
For i = 22 To 250
  s = s + i
Next i
Print s
End

4 楼

4.
Cls
Randomize Timer
Dim a(10)
For i = 1 To 10
  a(i) = Int(Rnd * 50)
Next i
For i = 1 To 9
  For j = i + 1 To 10
    If a(i) < a(j) Then Swap a(i), a(j)
Next j, i
For i = 1 To 10
  Print a(i);
Next i
End

我来回复

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