unit unit1;
antarmuka
penggunaan
Windows, pesan, sysutils, varian, kelas, grafik, kontrol, formulir,
Dialog, stdctrls;
jenis
Tform1 = class (tform)
Label1: tlabel;
Label2: tlabel;
Button1: tbutton;
Edit1: tedit;
Button2: tbutton;
Prosedur Button1Click (pengirim: Tobject);
Prosedur Button2Click (pengirim: Tobject);
Pribadi
{Deklarasi Pribadi}
publik
{Deklarasi Publik}
akhir;
var
Form1: tform1;
const pi = 3.14159;
Pelaksanaan
{$ R *.dfm}
Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);
Var R, C, S: NYATA;
Mulai
jika edit1.text = '' lalu
showmessage ('input kosong, mohon masukkan kembali!') // Jika tidak ada data yang dimasukkan, prompt
kalau tidak
Mulai
r: = strtofloat (edit1.text);
C: = 2*pi*r;
s: = pi*sqr (r);
Label2.caption: = 'Perimeter lingkaran adalah:'+floattostr (c)+chr (13)+'Area ini adalah:'+floattostr (s);
akhir;
akhir;
Prosedur TFORM1.BUTTON2CLICK (Pengirim: Tobject);
Mulai
Form1.close; // Kode acara acara acara
akhir;
akhir.