无聊~画朵花

纯狐 · 发表于 2007-9-1 01:46:58

沙发= =

hangtao · 发表于 2007-9-1 08:26:28

板凳....果然无聊-_-bbbbbbbbbbbbb

红色激情 · 发表于 2007-9-1 09:02:44

提示: 作者被禁止或删除内容自动屏蔽

西湖绿雨 · 发表于 2007-9-1 09:04:33

这是圆

天琊 · 发表于 2007-9-1 11:17:10

引用第3楼红色激情于2007-09-01 09:02发表的“”:

有理~~

滴鱼 · 发表于 2007-9-1 16:33:44

这。。。是花？

天琊 · 发表于 2007-9-3 21:03:56

还是花环？

hangtao · 发表于 2007-9-6 08:37:09

花蕊

西湖绿雨 · 发表于 2007-9-7 06:13:52

是花苞

飞蓬 · 发表于 2007-9-8 14:18:34

汗…………

black · 发表于 2007-9-9 14:55:11

『BASIC语言专区』好象很久没这么热闹了……

红色激情 · 发表于 2007-9-9 16:04:16

提示: 作者被禁止或删除内容自动屏蔽

纯狐 · 发表于 2007-9-1 01:46:29

无聊之作,没什么技术含量..

函数可以自己改

输入的A和B是数字(别太变态就行),1020机无需切换输入法

0 CLS : CLEAR : POKE 199,154 : INPUT "A=";A : POKE 199,154 : INPUT "B=";B : CLS : GRAPH : L=40
10 FOR I=0 TO 3.1415*4 STEP .01
20 X=INT(COS(A*I)*COS(B*I)*L)+40
30 Y1=INT(COS(A*I)*SIN(B*I)*L)+40 : Y2=40-INT(COS(A*I)*SIN(B*I)*L)
40 DRAW X+40,Y1 : DRAW X+40,Y2 : DRAW Y1+40,X : DRAW Y2+40,X
50 NEXT

		自动登录	找回密码
密码			加入易码

红色激情红色激情当前离线注册时间 2005-4-17 最后登录 1970-1-1	发表于 2007-9-1 09:02:44 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
红色激情红色激情当前离线注册时间 2005-4-17 最后登录 1970-1-1
	回复支持反对举报

红色激情红色激情当前离线注册时间 2005-4-17 最后登录 1970-1-1	发表于 2007-9-9 16:04:16 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
红色激情红色激情当前离线注册时间 2005-4-17 最后登录 1970-1-1
	回复支持反对举报