Расчёт периметра квадрата

[powersej]

1. Создать кнопку очистки для вашего проекта используя функцию form1.Repaint.
2. Используя функцию FloatToStr() - перевода дробного числа в строку и функцию StrToFloat() - перевода строки в дробное число написать программу расчёта периметра квадрата, зная длину стороны. Построить его, и вывести значение периметра в компоненте Edit.

[s-andriano]

PerimeterLength := 4.0*SideLength;

[powersej]

А можно поподробней

[Шевкунов]

SideLenght - длина стороны.
PerimeterLength - длина периметра.

var
SideLenght,PerimeterLength:real;
....
SideLenght:=StrToFloat(Edit1.text);
PerimeterLength:=4*SideLenght
Edit2.text:=FloatToStr(PerimeterLen gth);
...

Edit1 - ввод стороны.
Edit2 - вывод периметра.