Delphi典型例子

Delphi典型例子var r,c,s:real; const pi=3.14159; // 常量的定义 begin r:=strtofloat(edit1.Text); c:=2*pi*r; s:=