Unidad Unidad1;
interfaz
usos
Windows, mensajes, sysutils, variantes, clases, gráficos, controles, formularios,
Diálogo, stdctrls;
tipo
TForm1 = class (tForm)
Etiqueta1: tlabel;
Etiqueta2: tlabel;
Botón 1: tbutton;
Edit1: tedit;
Button2: tbutton;
Procedimiento botón1Click (remitente: tobject);
procedimiento Button2Click (remitente: tobject);
Privado
{Declaraciones privadas}
público
{Declaraciones públicas}
fin;
varilla
Form1: tform1;
const pi = 3.14159;
Implementación
{$ R *.dfm}
procedimiento tForm1.Button1Click (remitente: tobject);
var r, c, s: real;
Comenzar
Si edit1.Text = '' entonces
showMessage ('La entrada está vacía, vuelva a ingresar!') // Si no hay datos ingresados, indicado
demás
Comenzar
r: = strtofloat (edit1.Text);
c: = 2*pi*r;
s: = pi*sqr (r);
Label2.Caption: = 'El perímetro del círculo es:'+FloatToStr (c)+chr (13)+'El área es:'+FloatToStr (s);
fin;
fin;
procedimiento tForm1.Button2Click (remitente: tobject);
Comenzar
form1.close;
fin;
fin.