用delphi 遍一个求圆的面积的程序

来源：百度知道 编辑：UC知道 时间：2024/05/06 09:21:41
我刚开始学编程 老师说的没听下 这个最基本的程序求给出来 给两个程序 第一个是半径以确定的 第二个是半径需要自己输入在求值的。 我看的明白了 在给加10分

在form 添加两个edit 一个button
procedure TForm1.Button1Click(Sender: TObject);
const //常量标识符
pai=3.14;
var //变量标识符
R: real; //半径变量定义
Squere: real; //面积变量定义
begin
R:=strtofloat(edit1.Text); //将编辑框中字符串变量转换成浮点型实数
Squere:=pai*R*R; //圆的面积
edit2.Text:=floattostr(squere); //将实数转换成字符串用编辑框显示
end;

上面程序是要输入半径的(在edit1输入）.不输入的话R:=strtofloat(edit1.text)这句不要，换成R:=数值，就成了。给分吧。