回 帖 发 新 帖 刷新版面

主题:[讨论]编程题

1、    蜘蛛(8t)、蜻蜓(6t,2d)、蝉(6t,1d)共18只,共有118条腿,20对翅膀,问各有几只?
   2、    用50元钱买100只纽扣,其中金属纽扣每只5元,有机玻璃纽扣每只1元,小揿扣1元3只,编程求出各种纽扣各买了多少只?
   3.编写程序打印图形
(1)   *BBBB        (2) *******       (3)  *******     (4) cccccccccc
      **BBB             *****              bbbbb           *******
      ***BB              ***                 ***             bbbbb
      ****B                         ***
      *****     

回复列表 (共3个回复)

沙发

1.

CLS
FOR i = 1 TO 15
  FOR j = 1 TO 10
    k = 20 - 2 * j
    IF i * 8 + j * 6 + k * 6 = 118 THEN PRINT i; j; k
NEXT j, i
END

2.

CLS
FOR i = 1 TO 10
  FOR j = 1 TO 50
    k = 100 - i - j
    IF 5 * i + j + k / 3 = 50 THEN PRINT i; j; k
NEXT j, i

3.
(1)
CLS
FOR i = 1 TO 5
  PRINT STRING$(i, "*"); STRING$(5 - i, "B")
NEXT i
END
(2)
我猜你是不是想打印
*******
 *****
  ***
   *
CLS
FOR i = 1 TO 4
  PRINT SPC(i - 1); STRING$((5 - i) * 2 - 1, "*")
NEXT i
END
(3)
*******
 bbbbb
  ***
   b
CLS
FOR i = 1 TO 4
  IF i MOD 2 = 0 THEN ch$ = "b" ELSE ch$ = "*"
  PRINT SPC(i - 1); STRING$((5 - i) * 2 - 1, ch$)
NEXT i
END
(4)
ccccccccc
 *******
  bbbbb
   ***
    a
CLS
x = 3
FOR i = 1 TO 5
  IF i MOD 2 = 0 THEN ch$ = "*" ELSE ch$ = CHR$(x + 96): x = x - 1
  PRINT SPC(i - 1); STRING$((6 - i) * 2 - 1, ch$)
NEXT i
END

板凳


谢谢你!!!
我只是个小学生,有很多不懂的地方。希望大家多多关照!!!
谢谢你,幽灵密码。

3 楼

我也只是小学生啊

我来回复

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