圆和圆的位置关系演示

 王秀峰
1994-01-14

        20 FOR I=1 TO 5：READ A＄(I)：NEXT
        30 DATA 内含，内切，相交，外切，外离
        40 LOCATE 5，25：PRINT“圆和圆的位置关系演示”
        50 FOR I=F TO 330 STEP 5
        60 CIRCLE (F，F)，60，6：CIRCLE(I-5，F)，30，0
        70 LINE (F，F)-(I，F)，7：D=I-F：M=90：N=30
        80 K=-((D＜N)＋2*(D=N)＋3*(N＜D AND D＜M)＋4*(D=M)＋5*(D＞M)
        90 CIRCLE(I，F)，30，3：LOCATE 20，25
        100 PRINT “两圆的位置关系为”；A＄(K)
        110  IF K=2 OR K=4 THEN W=10000 ELSE  W=5000
        120 FOR T=1 TO W：NEXT T，I
        130 SCREEN 0：END
        (注：程序在长城GWBASIC语言运行通过)
 
 