花型图

作者: 长春 刘广新 | 1993-02-19

10 INPUT＂花瓣数(3-7)＂；N
20 INPUT＂颜色(1-15)＂；C
30 SCREEN 2：KEY OFF：CLS：B=3.14159
40 FOR A=0 TO 2
*B STEP B/360
50 E=100*(1＋SIN(N*A))：X=320＋E*COS(A)
60 X1=320＋E*COS(A＋B/5)： Y=100＋E*SIN(A)/2
70 OUTPUT 985，C：Y1=100＋E*SIN(A＋B/5)/2
80 LINE(X，Y)-(X1，Y1)：NEXT A：END
本程序在IBMPC、286(CGA彩显)上通过，BASICA语言。(长春 刘广新)