主题：help!help!绝对加分
小精灵1号
[专家分：1040] 发布于 2007-08-13 10:38:00
从键盘上输入两个不超过32767的整数,试编程序用竖式加法形式显示计算结果. (本题10分)
例如: 输入 123, 85
显示: 123
+ 85
---------
208
回复列表 （共4个回复）
沙发
网虫一号 [专家分：1230] 发布于 2007-08-13 10:43:00
CLS
10 INPUT "A="; a: IF a < 0 OR a > 32767 OR a <> a \ 1 THEN 10
20 INPUT "B="; b: IF b < 0 OR b > 32767 OR b <> b \ 1 THEN 20
a$ = STR$(a): la = LEN(a$): b$ = STR$(b): lb = LEN(b$)
c = a + b: c$ = STR$(c): lc = LEN(c$)
PRINT TAB(40 - la); a$
PRINT TAB(33); "+"; TAB(40 - lb); b$
PRINT TAB(32); "------------";
PRINT TAB(40 - lc); c$
END
板凳
QB小猪 [专家分：1200] 发布于 2007-08-13 10:46:00
CLS
10 INPUT "A=";h: IF h < 0 OR h > 32767 OR h<> h\ 1 THEN 10
20 INPUT "B="; b: IF b < 0 OR b > 32767 OR b <> b \ 1 THEN 20
a$ = STR$(a): la = LEN(a$): b$ = STR$(b): lb = LEN(b$)
c = h+ b: c$ = STR$(c): lc = LEN(c$)
PRINT TAB(40 - la); a$
PRINT TAB(33); "+"; TAB(40 - lb); b$
PRINT TAB(32); "------------";
PRINT TAB(40 - lc); c$
END
3 楼
我的电脑 [专家分：990] 发布于 2007-08-13 11:07:00
CLS
10 INPUT "A=";h: IF h < 0 OR h > 32767 OR h<> h\ 1 THEN 10
20 INPUT "B="; b: IF b < 0 OR b > 32767 OR b <> b \ 1 THEN 20
a$ = STR$(a): la = LEN(a$): b$ = STR$(b): lb = LEN(b$)
c = h+ b: c$ = STR$(c): lc = LEN(c$)
PRINT TAB(40 - la); a$
PRINT TAB(33); "+"; TAB(40 - lb); b$
PRINT TAB(32); "------------";
PRINT TAB(40 - lc); c$
END
4 楼
wzc1996 [专家分：1680] 发布于 2007-08-13 12:24:00
CLS
10 INPUT A, B
IF A > 32767 OR B > 32767 THEN 10
PRINT TAB(7 - LEN(STR$(A))); A
PRINT "+"; TAB(7 - LEN(STR$(B))); B
PRINT "________"
PRINT TAB(7 - LEN(STR$(A + B))); A + B
END
我来回复
您所在位置：