Проект в Lazarus «Меры веса»

Практическая работа в Lazarus, целью которой является создание программы перевода мер веса (1 пуд = 40 фунтам = 16.38 кг).

Результатом программы является перевод введенных  чисел в пудах и фунтах в килограммы и сообщение пользователю этого значения после щелчка по кнопке.

1. Создать новый проект Проект — Создать проект…, и сохранить его Проект — Сохранить проект как…
2. Разместить на форме четыре компонента надпись Label, два компонента поля ввода Edit и одну кнопку Button.
3. В окне инспектора объектов зададим свойства формы (см. таблицу 1) и находящихся на ней компонентов: label (см. таблицу 2), edit (см.табл.3), button (см.табл.4).
   

   Таблица 1

   

   Таблица 2

   

   Таблица 3

   

   Таблица 4

   

   Форма примет вид

4. Выделить объект кнопка Button1 и на вкладке События Инспектора объектов выбрать событие OnClick, затем дважды щёлкнуть на кнопке. В окне кода ввести текст программного кода:

   [html]procedure TForm1.Button1Click(Sender: TObject);
   var
   pud, funt: integer; kg: real;
   begin
   pud:=StrToInt(Edit1.Text);
   funt:=StrToInt(Edit2.Text);
   kg:=pud*16.38+funt*16.38/40;
   Label4.Caption:=’В килограммах:’+FloatToStr(kg);
   end;
   [/html]

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