您的位置:首页 > 其它

无意中翻出的一个早期写的程序晒出来永久保存

2012-05-22 16:26 134 查看
CLS

DO

INPUT "N=";N

LOOP UNTIL N>0 AND N<9 AND N=INT(N)

FOR I = 1 TO N

FOR J= N+1-I TO N

PRINT TAB(71-N^2+N-I+J^2-J);

FOR K= 1 TO (J-N+I)*2-1

PRINT CHR$(48+J);

NEXT K

NEXT J

PRINT

NEXT I
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐