برنامج دلفي الثاني

الوحدة 1 ؛

واجهة

يستخدم

Windows ، الرسائل ، sysutils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،

مربعات الحوار ، stdctrls ؛

يكتب

tform1 = فئة (tform)

Label1: tlabel ؛

Label2: tlabel ؛

Button1: Tbutton ؛

EDIT1: TEDIT ؛

Button2: Tbutton ؛

الإجراءات button1click (المرسل: tobject) ؛

الإجراءات button2click (المرسل: tobject) ؛

خاص

{إعلانات خاصة}

عام

{الإعلانات العامة}

نهاية؛

var

Form1: Tform1 ؛

const pi = 3.14159 ؛

تطبيق

{$ r *.dfm}

الإجراء tform1.button1click (المرسل: tobject) ؛

var r ، c ، s: real ؛

يبدأ

إذا edit1.text = '' ثم

showMessage ('الإدخال فارغ ، يرجى إعادة الدخول! ") // إذا لم يتم إدخال بيانات ، مطالبة

آخر

يبدأ

r: = strtofloat (edit1.text) ؛

ج: = 2*pi*r ؛

s: = pi*sqr (r) ؛

label2.caption: = 'محيط الدائرة هو:'+floattostr (c)+chr (13)+'المنطقة هي:'+floattostr (s) ؛

نهاية؛

نهاية؛

الإجراء tform1.button2Click (المرسل: tobject) ؛

يبدأ

Form1.Close ؛

نهاية؛

نهاية.