程序设计五环图

五环图设计
在显示器上画出彩色的五环图，每个环一种颜色。

每个圆的圆心坐标和半径在程序中指定，画圆步进角设为2度。

圆坐标在圆形方式下如图1所示：
X
r
y
x(A,B)
图1：圆形方式下圆坐标示意图
圆的半径取值范围为0～100.圆心坐标为（A，B）。

圆上轨迹（x,y）的动态坐标为：x=A±∆x, ∆x=P(rcosα)
y=B±∆y, ∆y=rsinα
其中，P为x坐标的比例因子（显示器上下纵、横比不一致）。

我们将一个圆分为四个区域，各个区域的计算公式如下：
1区：x=A−∆x2区：x=A+∆x
y=B−∆yy=B−∆y
3区：x=A−∆x4区：x=A+∆x
y=B+∆yy=B+∆y
注意：画圆的精确度取决于显示器的分辨率、三角函数值和画圆的进步角。

五环的程序流程如图2所示：
main
设置显示模式
设置圆的圆心坐标及圆
的颜色
子调用draw （画圆）
改变圆的圆心坐标及圆
的颜色
n1>520设置圆的圆心坐标及圆
的颜色
子调用draw （画圆）
改变圆的圆心坐标及圆
的颜色
n1>440
接收键盘字符
回车？结束
N
Y
L1
L2
N
Y
N
Y
drow
CX=比例因子，BX=圆半径
画1区部分（q1）子调用dxdy 、point 、delay
画1区部分（q2）子调用dxdy 、point 、delay
画1区部分（q3）子调用dxdy 、point 、delay
画1区部分（q3）子调用dxdy 、point 、delay
结束
图2：五环图程序流程
五环图程序如下：
DATA SEGMENT
N0=10000 ;比例因子
COL1 DB 9, 6, 10, 14, 4 ;五环的五种颜色值
COL2 DB?
N1 DW?;圆心坐标A
N2 DW?;圆心坐标B
D1 DW?;画圆角度变量
D2 DW 70 ;圆半径
D3 DW 0, 349, 698, 1045, 1392, 1736, 2079,
2419 ;cos三角函数表
DW 2756, 3090, 3420, 3746, 4067, 4384, 4695
DW 5000, 5299, 5592, 5878, 6157, 6428, 6691
DW 6947, 7193, 7431, 7660, 7880, 8090, 8290
DW 8480, 8660, 8829, 8988, 9135, 9272, 9397
DW 9511, 9613, 9703, 9781, 9848, 9903, 9945
DW 9976, 9994, 10000
N=$-D3
DATA ENDS
STACK SEGMENT
STA1 DW 100 DUP(?)
STACK ENDS
CODE SEGMENT
ASSUME CS: CODE, DS: DATA, SS:STACK
MAIN PROC FAR
PUSH DS
XOR AX, AX
PUSH AX
MOV AX, DATA
MOV DS, AX
MOV AH, 0
MOV AL, 12H ;设置显示模式640*480
INT 10H
MOV CX, 200 ;设置圆心坐标B
MOV [N2], CX
MOV CX, 150 ;设置圆心坐标A
MOV BX, OFFSET COL1
DEC BX
L1: PUSH CX
INC BX
PUSH BX
PUSH DX
MOV DL, [BX]
MOV COL2, DL ;设置圆的颜色
MOV [N1], CX
CALL DRAW
POP DX
POP BX
POP CX
ADD CX, 160
CMP CX, 520
JNA L1
MOV CX, [N2]
ADD CX, 90
MOV [N2], CX ;改变圆心坐标B
MOV CX, 230
L2: PUSH CX
INC BX
PUSH BX
PUSH DX
MOV DL, [BX]
MOV COL2, DL ;改变圆的颜色
MOV [N1], CX
CALL DRAW
POP DX
POP BX
POP CX
ADD CX, 160
CMP CX, 440
JNA L2
EXI: MOV AH, 7
INT 21H
CMP AL, 0DH
JNE EXI
MOV AH, 0
MOV AL, 3
INT 10H
RET
MAIN ENDP
DRAW PROC
LEA SI, D3 ;指向三角函数表首
MOV DI, SI
ADD DI, N-2 ;指向三角函数表尾
MOV CX, N0 ;取比例因子
MOV BX, D2 ;取圆半径
Q1: CALL
DXDY ;画圆的1分区
NEG AX
ADD AX, N1
NEG DX
ADD DX, N2
CALL POINT
ADD D1, 2
CMP D1, 90
JB Q1
Q2: CALL
DXDY ;画圆的2分区
ADD AX, N1
NEG DX
ADD DX, N2
CALL POINT
SUB D1, 2
CMP D1, 0
JGE Q2
MOV D1, 0
Q3: CALL
DXDY ;画圆的3分区
ADD AX, N1
ADD DX, N2
CALL POINT
ADD D1, 2
CMP D1, 90
JB Q3
Q4: CALL
DXDY ;画圆的4分区
NEG AX
ADD AX, N1
ADD DX, N2
CALL POINT
SUB D1, 2
CMP D1, 0
JGE Q4
RET
DRAW ENDP
POINT
PROC ;画圆
PUSH CX
MOV CX, AX
MOV AH, 12
MOV AL, COL2
INT 10H
CALL DELAY
POP CX
RET
POINT ENDP
DXDY PROC
PUSH SI
PUSH DI
ADD SI, D1
MOV AX, [SI]
MUL BX
DIV CX
PUSH AX
SUB DI, D1
MOV AX, [DI]
MUL BX
DIV CX
MOV DX, 10
MUL DX
MOV DL, 10
DIV DL
MOV AH, 0
POP DX
POP DI
POP SI
RET
DXDY ENDP
DELAY
PROC ;延时
PUSH CX
MOV CX, 0FFFFH T: DEC CX
JNZ T
POP CX
RET
DELAY ENDP
CODE ENDS
END MAIN
程序运行结果为：。