Проект "Капелюшок"

Модниця Катруся, взявши ножиці в руки, змоделювала собі з маминого круглого капелюшка новий фасон. Якою повинна бути сторона квадратної коробки, де можна сховати новий капелюшок, якщо радіус маминого був R?

Хід виконання

1. Запустіть Lazarus.
2. На формі розмістіть такі компоненти Label1, Label2, Edit1, Button1.

          3. Створити процедуру OnClick для Button1.

procedure TForm1.Button1Click(Sender: TObject);

  var r,a:real;

begin

  r:=strtofloat(Edit1.Text);

  a:=sqrt(2)*r;

  Label2.Caption:='Сторона коробки - '+floattostr(a);

end;               

         4. Збережіть проект в папці Капелюшок  у власній папці.

         5. Запустіть проект на виконання.