圆和圆的位置关系演示
11-08 12:37:21软件技巧
浏览次数:895次
标签：软件技巧大全,http://www.duosi8.com
圆和圆的位置关系演示,
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语言运行通过)
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语言运行通过)
，圆和圆的位置关系演示
- ·上一篇：为什么金山快译永久汉化不能汉化软件？
- ·下一篇：如何查找和排除交换机故障？
热门推荐
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件
- · AutoCAD复制粘贴图纸导致死机
- · 监控软件导致QQ无法登录
- · 提高WindowsXP启动速度的方法
- · Office 2007无法正常卸载怎么办
- · 如何用批处理一次建立或删除多个目录
- · 教你Windows百毒不侵的13个妙招
- · ATI显卡在线看电影时花屏应该如何解决