delphi 已知3点坐标，需要画一个圆，并计算它的半径！-CSDN论坛

delphi 已知3点坐标，需要画一个圆，并计算它的半径！

Delphi > GAME，图形处理/多媒体

收藏回复

[问题点数：200分，结帖人zqdue]

⋅delphi 已知3点坐标，需要画一个圆，并计算它的半径！ ⋅如何支持多国语言 ⋅FastReport 预览正常,打印就缺字 更多帖子 关注私信空间博客 zqdue 等级 本版专家分：1154 结帖率 100%: delphi 已知3点坐标，需要画一个圆，并计算它的半径！
小弟数学很差，谢谢大家了！

2011-04-30 11:08:23

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅没事干，还不给放假，一定要熬到除夕，怎么破！

⋅有种你就进来！

⋅嗯

更多帖子

关注私信空间博客

Frank.WU

等级

本版专家分：14999

勋章

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！: 记得2004年有同学问过这样的题目，然后，某大侠出来说，严打不经过思考就提问的。。。

现在我是否可以说：严打没经过搜索就来提问的？

2011-04-30 14:50:20

点赞只看TA 引用举报 #1得分 5

⋅delphi 已知3点坐标，需要画一个圆，并计算它的半径！ ⋅如何支持多国语言 ⋅FastReport 预览正常,打印就缺字 更多帖子 关注私信空间博客 zqdue 等级 本版专家分：1154: 谢谢1楼，我是搜过本坛论还有百度，找不到啊！

2011-04-30 15:20:23

点赞只看TA 引用举报 #2得分 0

⋅大家新年好！散分！顺便问个小问题，大家热热身~~ ⋅vector使用出了个问题，谁给解释下？ ⋅C++多线程 CPU利用率100%，怎么解决？ 更多帖子 关注私信空间博客 hongss 等级 本版专家分：11345

interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls;



type

  TForm1 = class(TForm)

    BitBtn1: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.BitBtn1Click(Sender: TObject);

var

  Ax,Ay,Bx,By,Cx,Cy: Single;

  Ox,Oy: Single;

  r: Single;

begin

  Ax:= StrToFloatDef(InputBox('输入A点x坐标', 'Ax =', '78.3'),78.3);

  Ay:= StrToFloatDef(InputBox('输入A点y坐标', 'Ay =', '78.3'),78.3);

  Bx:= StrToFloatDef(InputBox('输入B点x坐标', 'Bx =', '10'), 10);

  By:= StrToFloatDef(InputBox('输入B点y坐标', 'By =', '60'),60);

  Cx:= StrToFloatDef(InputBox('输入C点x坐标', 'Cx =', '60'),60);

  Cy:= StrToFloatDef(InputBox('输入C点y坐标', 'Cy =', '10'), 10);



  Ox:= ((Cy-Ay)*(By*By-Ay*Ay+Bx*Bx-Ax*Ax)+(By-Ay)*(Ay*Ay-Cy*Cy+Ax*Ax-Cx*Cx))/(2*(Bx-Ax)*(Cy-Ay)-2*(Cx-Ax)*(By-Ay));

  Oy:= ((Cx-Ax)*(Bx*Bx-Ax*Ax+By*By-Ay*Ay)+(Bx-Ax)*(Ax*Ax-Cx*Cx+Ay*Ay-Cy*Cy))/(2*(By-Ay)*(Cx-Ax)-2*(Cy-Ay)*(Bx-Ax));



  r:= Sqrt(Sqr(Ox-Bx)+Sqr(Oy-By));

  ShowMessage(FormatFloat('0.00',r));



  Canvas.Ellipse(Round(Ax)-2,Round(Ay)-2,Round(Ax)+2,Round(Ay)+2);

  Canvas.Ellipse(Round(Bx)-2,Round(By)-2,Round(Bx)+2,Round(By)+2);

  Canvas.Ellipse(Round(Cx)-2,Round(Cy)-2,Round(Cx)+2,Round(Cy)+2);



  Canvas.Ellipse(Round(Ox-r),Round(Oy-r),Round(Ox+r),Round(Oy+r));

end;

2011-04-30 16:50:42

点赞只看TA 引用举报 #3得分 195

  r:= Sqrt(Sqr(Ox-Bx)+Sqr(Oy-By));  //圆半径



  Canvas.Ellipse(Round(Ax)-2,Round(Ay)-2,Round(Ax)+2,Round(Ay)+2);  //标识出A点位置

  Canvas.Ellipse(Round(Bx)-2,Round(By)-2,Round(Bx)+2,Round(By)+2);  //标识出B点位置

  Canvas.Ellipse(Round(Cx)-2,Round(Cy)-2,Round(Cx)+2,Round(Cy)+2);  //标识出C点位置



  Canvas.Ellipse(Round(Ox-r),Round(Oy-r),Round(Ox+r),Round(Oy+r));  //画圆

2011-04-30 16:53:14

点赞只看TA 引用举报 #4得分 0

⋅delphi 已知3点坐标，需要画一个圆，并计算它的半径！ ⋅如何支持多国语言 ⋅FastReport 预览正常,打印就缺字 更多帖子 关注私信空间博客 zqdue 等级 本版专家分：1154: 谢谢！非常感谢！

2011-04-30 17:20:47

点赞只看TA 引用举报 #5得分 0

⋅大家新年好！散分！顺便问个小问题，大家热热身~~ ⋅vector使用出了个问题，谁给解释下？ ⋅C++多线程 CPU利用率100%，怎么解决？ 更多帖子 关注私信空间博客 hongss 等级 本版专家分：11345: 嘿嘿，结贴~~

2011-04-30 17:25:18

点赞只看TA 引用举报 #6得分 0

收起

收藏回复

zqdue

等级：

关注私信 TA的帖子

高速公路坐标高程计算软件3.5发布: 高速公路坐标高程计算软件下载...高速公路坐标高程计算软件说明目录前言................................................................................................................................

hough变换是如何检测出直线和圆的: （I）直线篇 1 直线是如何表示的？对于平面中的一条直线，在笛卡尔坐标系中，常见的有点斜式，两点式两种表示方法。...2 如果坐标系中有多个点，又怎样识别出哪些点在一条直线上呢？使用hough变换来检测直线的思

Delphi如何使用基本的绘图函数绘制统计图: ====================================================== 注：本文源代码点此下载 ============================...一个windows自带的画图工具是无论如何也不能满足我们的画图需要的,很多效果都需要我们在另外的工

专业词汇及解释（持续更新，自用）: 元祖由不同元素组成，所有元素被包含在一个圆括号中。元祖的创建创建元祖时，可以不指定元祖的个数，但一旦创建后就就不能修改元祖的长度。创建格式如下： tuple_name=(a1,a2,a3...) 元祖的访问元祖中元素的值...

SuperMap iObject常见问题解答集锦（一）: SuperMap iObject常见问题解答集锦

Hough变换原理: 在其它开发环境中如VB、VC、DELPHI、MATLAB应用比较广泛，且在网络上能搜到现在的源代码，可惜的是现在还没有人用易做这方面的研究或没有发布出来。下面是我在网络上找到一些其它语言的源代码，基于水平有

构造Delaunay三角形网格: Delaunay是一种在离散点序列中快速构造三角形网格的方法，本代码依据的Delaunay三角形的性质：在已知的Dalaunay三角化的网格上加入一点P，只需要删除所有外接圆包含此点的三角形，并连接P与所有可见的点(即连接后...

正态分布（Normal distribution）又名高斯分布（Gaussian distribution）: 正态分布（Normal distribution）又名高斯分布（Gaussian distribution），是一个在数学、物理及project等领域都很重要的概率分布，在统计学的很多方面有着重大的影响力。若随机变量X服从一个数学期望为μ、标准...

我在CSDN参与的3000个帖子: 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...

使用canvas实现简单的时钟效果: 关键点时钟效果的实现主要分为3部分 1、绘制表盘、大小刻度、1~12 等静态部分的绘制 2、展示当前时间 3、时针、分针和秒针动起来绘制静态部分首先得到canvas和canvas的绘图环境 var canvas=...

使用基本函数绘制统计图: 一个windows自带的画图/tool/">工具是无论如何也不能满足我们的画图需要的，很多效果都需要我们在另外的/tool/">工具中来实现。这些高级的功能是如何实现的呢，如何操纵一些基本的属性和...

分子图形软件MOL4D（7） for Windows（插图70幅）: 分子图形系列软件 MOL4D For Windows 本文网址应在： http://blog.csdn.net/zzwu/article/details/8286827 目录 ***************************************************** 1 MOL4D Windows版总体...2.MOL4

特效天地——水波: 看到左边这幅动画，你也许不会相信它其实是用电脑做出来的，这就是“水波”特效的魅力所在。这个小动画是从程序的执行画面中抓出来的，如果你想亲自执行一下源程序，看看实际的效果，可以下载 RipSample.zip（92k）...

DLL(转载): 转载于 ...VC++ 动态链接库 (DLL) 编程（一） ――理解库 ...1. 概论先来阐述一下 DLL(Dynamic Linkable Library) 的概念，你可以简单的把 DLL看成一种仓库，它提供给你一些可以直

数学、物理、化学、生物、地理常用软件介绍（草稿）: 一数学： 1、数学软件：（1）常见的通用数学软件包包括：Matlab和Mathematica和Maple，其中Matlab以数值计算见长，Mathematica和Maple以符号运算、公式推导见长（2）专用数学包包括：绘图软件类：...

笔试面试题集（java）: 前言本书为自己的面试试题和收藏自...其中每个部分都按小知识点进行笔试面试题整理，并在题后紧跟详细的分析步骤和解答。目录前言第一部分：JAVA基础 1.1 JAVA语言基础 1.2 JAVA面向对象 1.3 JAVA核心API

（十九）通俗易懂理解——无人驾驶概述: 本文主要对无人驾驶的整体情况做一个简要的概括介绍。无人车的实现需要诸多硬件传感器的支持，这些传感器包括： GPS+IMU 全球定位+惯性测量 Camera 视觉传感器 Lidar 激光传感器 Millimeter ...

几何匹配和分合算法的图像识别技术: 第一章引言 1.1 面像定位概述及其与面像识别的关系这个设计所涉及到的是面像的定位和识别。简单来说，所谓面像的定位，就是在照片(静态图像)或视频(动态图像)中标出面像所在的位置，把面像选取出来。而面像...

QBASIC教程: Qbasic 程序设计入门 BASIC（Beginner’s All-purpose Symbolic Instruction Code 的缩写，意为初学者通用符号指令代码）语言是在1964年由美国的两位教授Thomas 和...12个函数和3个命令，现在一般称其为基本BAS...

技术笔试面试题(上): 前言当天社会，随着程序设计、软件开发等工作岗位的增加，java程序开发已经占据程序员求职市场的半壁江山，java程序员求职者们...其中每个部分都按小知识点进行笔试面试题整理，每道题都取材于各大公司的实际招聘面...

转载+收藏数理化地生常用软件: 一数学： 1、数学软件：（1）常见的通用数学软件包包括：Matlab和Mathematica和Maple，其中Matlab以数值计算见长，Mathematica和Maple以符号运算、公式推导见长（2）专用数学包包括：绘图软件类：MathCAD,...

机器视觉表面缺陷检测综述: 转自：http://www.cjig.cn/html/jig/2017/12/20171202.htm#b22 机器视觉表面缺陷检测综述《中国图像图形学报》 Tang B, Kong J Y, Wu S Q . Review of surface defect detection based on ... vision[J]....

opencv表面缺陷检测_机器视觉表面缺陷检测综述: Version:1.0 StartHTML:000000258 EndHTML:001109835 StartFragment:001028390 EndFragment:001109739 StartSelection:001028390 EndSelection:001109735 SourceURL:...

opencv表面缺陷检测_综述 | 机器视觉表面缺陷检测: 点击上方“计算机视觉life”，选择“星标”快速获得最新干货0 引言中国是一个制造大国，每天都要生产大量的工业产品。用户和生产企业对产品质量的要求越来越高，除要求满足使用性能外，还要有良好的外观，即良好的...

重磅分享：微软面试100题2010年版全部答案完整亮相: 欢迎zhangxusoftgcy我的：资源博客空间简历设置|帮助|退出 CSDN首页资讯论坛博客下载搜索更多 CTO俱乐部学生大本营培训充电移动开发软件研发云计算程序员 TUP ...h

深入浅出Visual C++动态链接库(DLL)编程: 深入浅出Visual C++动态链接库(DLL)编程作者：宋宝华博客：http://blog.donews.com/21cnbao/ 原文链接：http://soft.yesky.com/lesson/318/2166818.shtml 动态链接库(DLL)是Windows系统的核心，也是COM技术...

2020年美赛优秀论文集.zip: 2020年美赛优秀论文集，论文为完整版，包含附录，可以上手实操，不过全为英文，推荐结合CopyTranslator阅读：https://copytranslator.github.io/

Python可以这样学（第二季：tkinter案例精选）

董付国老师系列教材《Python程序设计基础》（ISBN：9787302410584）、《Python程序设计（第2版）》（ISBN：9787302436515）、《Python可以这样学》（ISBN：9787302456469）配套视频，通过大量实际案例讲解Pyth

Oracle数据库: 本课程主要讲解如下内容：Oracle体系结构、Oracle 基础管理、SQL 语言、Sequence和同义词、数据字典及用户管理、E-R模型、Power Designer设计工具。在本

Visio_2016: visio_2016下载安装，亲测可用，不需要破解，而且无秘钥。简单方便实用

相关热词 c# 设置窗体为激活 c# 同步发送 c# 多进程锁 c# 读取类的属性和值 c# out 使用限制 c#获取url的id c# update 集合 c# 公众号菜单 c#for迭代 c#指针应用