主题:自创自定空心棱形(自己输入字母,用空心棱形输出)
主程序:
CLS
DO
INPUT b$
INPUT n
LOOP UNTIL LEN(B$)<=2
a = n - 1: b = n + 1
PRINT TAB(n); b$
FOR i = 2 TO n
PRINT TAB(a); b$; : PRINT TAB(b); b$
a = a - 1: b = b + 1
NEXT i
a = a + 2: b = b - 2
FOR i = 2 TO n - 1
PRINT TAB(a); b$; : PRINT TAB(b); b$;
a = a + 1: b = b - 1
NEXT i
PRINT TAB(n); b$;
END
样例输入:? G
? 7
样例输出:
g
g g
g g
g g
g g
g g
g g
g g
g g
g g
g g
g g
g
诸如此类不再一一列举。
顺便发一下文本格式,巩固一下用法(用之前在qb7.1文件夹里建一个pp.in的in文件,pp.out就不用建了,系统在程序执行过后自动创建一个对应的out文件):
CLS
OPEN "pp.in" FOR INPUT AS #1
OPEN "pp.out" FOR OUTPUT AS #2
INPUT #1, b$, n
a = n - 1: b = n + 1
PRINT #2, TAB(n); b$
FOR i = 2 TO n
PRINT #2, TAB(a); b$; : PRINT #2, TAB(b); b$
a = a - 1: b = b + 1
NEXT i
a = a + 2: b = b - 2
FOR i = 2 TO n - 1
PRINT #2, TAB(a); b$; : PRINT #2, TAB(b); b$;
a = a + 1: b = b - 1
NEXT i
PRINT #2, TAB(n); b$;
END
CLS
DO
INPUT b$
INPUT n
LOOP UNTIL LEN(B$)<=2
a = n - 1: b = n + 1
PRINT TAB(n); b$
FOR i = 2 TO n
PRINT TAB(a); b$; : PRINT TAB(b); b$
a = a - 1: b = b + 1
NEXT i
a = a + 2: b = b - 2
FOR i = 2 TO n - 1
PRINT TAB(a); b$; : PRINT TAB(b); b$;
a = a + 1: b = b - 1
NEXT i
PRINT TAB(n); b$;
END
样例输入:? G
? 7
样例输出:
g
g g
g g
g g
g g
g g
g g
g g
g g
g g
g g
g g
g
诸如此类不再一一列举。
顺便发一下文本格式,巩固一下用法(用之前在qb7.1文件夹里建一个pp.in的in文件,pp.out就不用建了,系统在程序执行过后自动创建一个对应的out文件):
CLS
OPEN "pp.in" FOR INPUT AS #1
OPEN "pp.out" FOR OUTPUT AS #2
INPUT #1, b$, n
a = n - 1: b = n + 1
PRINT #2, TAB(n); b$
FOR i = 2 TO n
PRINT #2, TAB(a); b$; : PRINT #2, TAB(b); b$
a = a - 1: b = b + 1
NEXT i
a = a + 2: b = b - 2
FOR i = 2 TO n - 1
PRINT #2, TAB(a); b$; : PRINT #2, TAB(b); b$;
a = a + 1: b = b - 1
NEXT i
PRINT #2, TAB(n); b$;
END