标题花型图

　　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语言。(长春　刘广新)