2012年5月22日
无意中翻出的一个早期写的程序晒出来永久保存
摘要： CLSDO INPUT "N=";NLOOP 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 PRINTNEXT I 阅读全文
posted @ 2012-05-22 16:26 童同 阅读(194) 评论(2) 推荐(0) 编辑