|
发表于 2012-12-13 12:28:56
|
显示全部楼层
新人报道 自己也胡乱弄了个(不好意思挖坟了) 我只是为了画出那个图像,坐标什么的就没保存在表格里 包容一下吧
ClrMemory:"MIN X"?->A:"MAX X"?->B:"MIN Y"?->C:"MAX Y"?->D
(D-C)\12->E:(B-A)\15->F:Cls
For 1->G To 16
A+F(G-1)->X
Prog "FUNCTION"
-Int((Y-D)\E)->H:Int(H\3)->I:H-3I->J
If Y>C And Y<D:Then J=0=>Locate G,I+1,"度":J=1=>Locate G,I+1,"-":J=2=>Locate G,I+1,".":If End
Next:locate 16,1," "
用的是字母变量,意图应该还算清楚,不行就帮忙优化一下 新人压力大啊 |
|