回 帖 发 新 帖 刷新版面

主题:帮帮忙,编一下这两个程序吧

1、宝塔有7层,每层所点的灯等于上一层的2倍,一共点了381盏灯,求最底层所点的灯数?
2、某班同学的成绩放在DATA语句中,人数不确定,编程求出其中的最高分,最低分和平均成绩?[em18][em18]

回复列表 (共18个回复)

11 楼

既然你没看见!那我解释下!
FOR 1 TO 50‘(因为我也不知道第七层有几个灯!所以我用1TO 50
试验!检测它是多少!其实它的真实答案是3个!

12 楼

第二句:I+I*2……+I*64=381
    这句是说,如果I的答案正确。也就是说如果I的答案确实是第七层的灯
的数目!那么他们的和一定等于381(题目不错的前提) 
  然后再写个如果答案正确就结束的程序!我忘了那个是什么了,下次我再给你!
不过这个书本上有的!
我给你的答案是第七层的答案!所以答案是3!
希望你自己去琢磨怎么算出第一层的灯!我说了答案,你就不会学会什么的!

13 楼

[quote]第二句:I+I*2……+I*64=381[/quote]
=I*(1+2+4+8+16+32+64)
=I*127=381
I=381/127=3

等商排列是不是该用微积分?

14 楼

CLS
INPUT a
LET max = a
LET min = a
LET n = 1
LET s = a
WHILE a >= 0
INPUT a
IF a > max THEN LET max = a

IF a < min THEN LET min = a
n = n + 1
s = s + a
LET q = s / n
PRINT "max=?"; max, "min=?"; min, "mun=?"; n, q
WEND

可以吗?

15 楼

当输入的分数为负时,跳出

16 楼

赋值可以把LET直接去掉
a = b

LET a = b 是一样的

你这个程序有问题.
先输入99, 则max=99,min=99
再输入-1表示结束, 则max=99,min变成-1了.

解决办法是把第二个INPUT A放到WEND那一句前面

17 楼


   第二题如果用Pascal或者C的话会很简单的!

18 楼

C 可以形容为高效,
跟QB相提并论,不能说简单。

我来回复

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