花型图

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