主题：急救两个QB题目
frost_fy
[专家分：0] 发布于 2010-06-04 14:43:00
1.从键盘输入10个数，对这些数进行降序排列输出结果，其中重复不输出（只保留一个）
2：投两个骰子，可以出现2至12点，每个点数出现次数并不相等（如1+6=2+5=3+4=4+3=5+2=6+1）6次。完成程序统计各点数出现的次数，并输出出现次数最多的点数。
回复列表 （共17个回复）
11 楼
verysmartboy [专家分：1260] 发布于 2010-10-30 16:53:00
4+4=8/1*1-1+1mod1\1*0+8
13 楼
温和空间 [专家分：70] 发布于 2010-10-31 10:11:00
CLS
DIM a(10)
FOR i = 1 TO 10
INPUT n
a(i) = n
NEXT i
FOR i = 1 TO 10
FOR j = i TO 10
IF a(i) > a(j) THEN SWAP a(i), a(j)
NEXT j
NEXT i
FOR i = 1 TO 10
PRINT a(i);
NEXT i
END
14 楼
温和空间 [专家分：70] 发布于 2010-10-31 10:11:00
第一题
15 楼
huangyb731 [专家分：630] 发布于 2010-11-01 21:02:00
太简单了！~
16 楼
独手编程 [专家分：360] 发布于 2010-11-03 18:04:00
1
cls
dim a(10)
for i = 1 to 10
input 10
next i
for i = 1 to 9
for j = i to 10
if a(i)>a(j) then swap a(i),a(j)
next j,i
print a(i);
for i = 2 to n
if a(i)=a(i-1) then next i
print a(i);
next i
17 楼
独手编程 [专家分：360] 发布于 2010-11-03 18:07:00
给不给
[em5][em5][em5][em5][em5][em5][em5]
[fly]分分分分分分分分分分分分[/fly]
我来回复
您所在位置：