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," "
用的是字母变量,意图应该还算清楚,不行就帮忙优化一下 新人压力大啊 谢谢楼主,学习一下 谢谢楼主,学习一下
页:
1
[2]