会员
周边
新闻
博问
闪存
赞助商
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
会员中心
简洁模式
...
退出登录
注册
登录
童同
http://jtx.me
博客园
首页
新随笔
联系
管理
订阅
随笔分类 -
BASIC
QUICK BASIC
无意中翻出的一个早期写的程序晒出来永久保存
摘要: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
童同
阅读(213)
评论(2)
推荐(0)
公告