unidade de unidade1;
interface
usos
Janelas, mensagens, sysutils, variantes, classes, gráficos, controles, formulários,
Diálogos, stdctrls;
tipo
Tform1 = classe (tform)
Label1: Tlabel;
Label2: tlabel;
Button1: tbutton;
Edit1: TEDIT;
Button2: tbutton;
Procedimento Button1Click (remetente: Tobject);
Procedimento Button2Click (remetente: Tobject);
Privado
{Declarações privadas}
público
{Declarações públicas}
fim;
var
Form1: TForm1;
const pi = 3.14159;
Implementação
{$ R *.dfm}
procedimento TForm1.Button1Click (remetente: TOBJECT);
var r, c, s: real;
Começar
se edit1.text = '' então
ShowMessage ('A entrada está vazia, por favor, volte!') // Se não houver dados inseridos, prompt
outro
Começar
r: = strtofloat (edit1.text);
C: = 2*pi*r;
s: = pi*sqr (r);
LABEL2.CAPTION: = 'O perímetro do círculo é:'+FLOATTOSTR (C)+Chr (13)+'A área é:'+FLOATTOSTR (S);
fim;
fim;
procedimento TForm1.Button2Click (remetente: TOBJECT);
Começar
Form1.close;
fim;
fim.