主题：问题
爱丽斯LING
[专家分：560] 发布于 2007-08-14 10:16:00
从键盘上输入两个不超过32767的整数,试编程序用竖式加法形式显示计算结果. (本题10分)
例如: 输入 123, 85
显示: 123
+ 85
---------
208
回复列表 （共4个回复）
沙发
我的电脑 [专家分：990] 发布于 2007-08-14 10:20: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
板凳
网虫一号 [专家分：1230] 发布于 2007-08-14 10:24: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
3 楼
小精灵1号 [专家分：1040] 发布于 2007-08-14 10:31: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
4 楼
wzc1996 [专家分：1680] 发布于 2007-08-14 12:25: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
我来回复
您所在位置：