qbasic 程序设计题，很简单的！

主题：qbasic 程序设计题，很简单的！

寂若潮汐 [专家分：0] 发布于 2010-12-29 20:06:00

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

大家帮帮忙吧，我实在不知道怎么写了！

本帖地址： http://bbs.pfan.cn/post/360606.html

回复列表（共4个回复）

沙发

幽灵密码 [专家分：3510] 发布于 2011-01-01 19:37:00

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

板凳

幽灵密码 [专家分：3510] 发布于 2011-01-01 19:38:00

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

3 楼

幽灵密码 [专家分：3510] 发布于 2011-01-01 19:39:00

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

4 楼

幽灵密码 [专家分：3510] 发布于 2011-01-01 19:41:00

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

我来回复

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

主题：qbasic 程序设计题，很简单的！

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：qbasic 程序设计题，很简单的！

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）