根据圆的半径计算内接外切正四边形

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function outsquare(r: integer): real;
function insquare(r: integer): real;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function outsquare(r: integer): real;              //外切正四边形的面积
begin
  outsquare := 2*r*2*r;
end;

function insquare(r: integer): real;               //内接正四边形的面积
begin
  insquare := 2*r*r;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  radius: integer;                                 //圆的半径
begin
  radius := strtoint(Edit1.Text);                  //字符串转换为整数
  Edit2.Text := floattostr(insquare(radius));      //编辑框2为内接正四边形
  Edit3.Text := floattostr(outsquare(radius));     //编辑框3为外切正四边形
end;

end.

 

编辑框2和3的ReadOnly属性为True

转载于:https://www.cnblogs.com/endsnow/archive/2011/12/02/2272458.html