единица единицы 1;
интерфейс
Использование
Windows, сообщения, Sysutils, варианты, классы, графика, управления, формы,
Диалоги, stdctrls;
тип
Tform1 = class (tform)
Label1: Tlabel;
Label2: Tlabel;
Баттон1: Tbutton;
РЕДАКТИРОВАТЬ1: ТЕДИТ;
Button2: Tbutton;
Процедура Button1click (отправитель: tobject);
процедура Button2click (отправитель: tobject);
Частный
{Частные объявления}
публичный
{Публичные объявления}
конец;
вар
Форма1: tform1;
const pi = 3,14159;
Выполнение
{$ R *.dfm}
Процедура tform1.button1click (отправитель: tobject);
var r, c, s: Real;
Начинать
Если edit1.text = '' then
ShowMessage («Ввод пуст, пожалуйста, повторно введите!») // Если нет введенных данных, приглашение
еще
Начинать
r: = strtofloat (edit1.text);
c: = 2*pi*r;
s: = pi*sqr (r);
label2.caption: = 'Периметр круга:'+floattoStr (c)+chr (13)+'Область:'+floattoStr (s);
конец;
конец;
Процедура tform1.button2click (отправитель: tobject);
Начинать
form1.close;
конец;
конец.