希望有朋友能帮助下!
高分相赠.
谢谢!!
10 for k=7 to 90 step 5
20 print k
30 next k
答案：15 16 17 18
20 x=1:y=1
30 for z=1 to 4
40 x=x+y:y=y+x
50 next z
60 print x,y
70 end
答案 A .5 8 B.13 21 C.34 55 D.89 144
10 DIM X（11）
20 FOR K=1TO10
30 X（K）=K*K
40 NEXT K
50 FRINT X（K）
60 END
答案 A，0 B，100 C，10 D，11
编译：用READ，DATA语句读下列数据，当遇到0时停止。计算并输出以读数据累加结果及平均植。
给出的数据为：12.3 ， 3.7， 0.64， 1.28， -3.2， 7，-4.5，6.2，0
阅读：指出下列程序的功能及运行结果。
10 DIM D（14）
20 FOR K=0 TO 14
30 READ D（K）
40 NEXT K
50 A=D（0）：B=D（0）
60 FOR K=0 TO 14
70 IF D（K）<=A AND D（K）>=B THEN 90
80 IF D(K)>A THEN A=D(K)
ELSE B=D(K)
90 NEXT K
100 PRINT"A="; A, B=";B"
110 DATA 45, 61,33, 55,20,50,36, 42,27,69,58,34,23,48,66
120 END
4 个解决方案
#1
17
c
0
c
0
#2
前三题为17\C\B,后面的也不清楚~!!!!!!
#3
最后一题意思是求数列中 最大值A ，最小值B
Dim d()
d = Array(45, 61, 33, 55, 20, 50, 36, 42, 27, 69, 58, 34, 23, 48, 66)
A = d(0): B = d(0)
For k = 0 To 14
If d(k) > A Then A = d(k)
If d(k) < B Then B = d(k)
Next k
Print "A="; A, "B = "; B
Dim d()
d = Array(45, 61, 33, 55, 20, 50, 36, 42, 27, 69, 58, 34, 23, 48, 66)
A = d(0): B = d(0)
For k = 0 To 14
If d(k) > A Then A = d(k)
If d(k) < B Then B = d(k)
Next k
Print "A="; A, "B = "; B
#4
呵呵，是比较简单
其实这样的问题，你找个QBASIC运行一下就知道结果了
其实这样的问题，你找个QBASIC运行一下就知道结果了
#1
17
c
0
c
0
#2
前三题为17\C\B,后面的也不清楚~!!!!!!
#3
最后一题意思是求数列中 最大值A ，最小值B
Dim d()
d = Array(45, 61, 33, 55, 20, 50, 36, 42, 27, 69, 58, 34, 23, 48, 66)
A = d(0): B = d(0)
For k = 0 To 14
If d(k) > A Then A = d(k)
If d(k) < B Then B = d(k)
Next k
Print "A="; A, "B = "; B
Dim d()
d = Array(45, 61, 33, 55, 20, 50, 36, 42, 27, 69, 58, 34, 23, 48, 66)
A = d(0): B = d(0)
For k = 0 To 14
If d(k) > A Then A = d(k)
If d(k) < B Then B = d(k)
Next k
Print "A="; A, "B = "; B
#4
呵呵，是比较简单
其实这样的问题，你找个QBASIC运行一下就知道结果了
其实这样的问题，你找个QBASIC运行一下就知道结果了