主题：[讨论]编程题
黑暗幽灵兔
[专家分：0] 发布于 2011-05-16 21:17:00
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个回复）
沙发
幽灵密码 [专家分：3510] 发布于 2011-05-17 17:31:00
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
板凳
黑暗幽灵兔 [专家分：0] 发布于 2011-05-17 20:36:00
谢谢你！！！
我只是个小学生，有很多不懂的地方。希望大家多多关照！！！
谢谢你，幽灵密码。
3 楼
幽灵密码 [专家分：3510] 发布于 2011-05-19 19:16:00
我也只是小学生啊
我来回复
您所在位置：