Var

Form1: TForm1;
r, Pole, Obwód: Real;
const pi=3.14;

Implementation
procedure
begin
r:=StrToFloat(Edit1.Text);
Pole:=(pi*r*r);
Label2.Caption:=’Pole ‘+FloatToStr(Pole);

End;
procedure
…
begin
r:=StrToFloat(Edit1.Text);
Obwod=(2*pi*r);
Label2.Caption:=’Obwod ‘+FloatTOStr(Obwod);

End;

Temat: Instrukcje warunkowe if.

1. Jeżeli warunek, to instrukcje.

2. Jeżeli warunek to instrukcjaA w przeciwnym wypadku instrukcjaB.

a:=StrToInt(Edit1.Text);
if (a>0) then Label1.Caption:=’Liczba dodatnia’;

--------------------------------------------------------------------------------------------------------------------------------------

if (a>0) then
begin
Label1.Caption:=’Liczba dodatnia’;
ShowMessage(‘Wprowadziłeś a>0’);
end;

Ćwiczenie.
Pole prostopadłościanu: 2ab+2ac+2bc
Pole sześcianu: 6a²