Практическая работа в Lazarus, целью которой является создание программы перевода мер веса (1 пуд = 40 фунтам = 16.38 кг).
Результатом программы является перевод введенных чисел в пудах и фунтах в килограммы и сообщение пользователю этого значения после щелчка по кнопке.
- Создать новый проект Проект — Создать проект…, и сохранить его Проект — Сохранить проект как…
- Разместить на форме четыре компонента надпись Label, два компонента поля ввода Edit и одну кнопку Button.
- В окне инспектора объектов зададим свойства формы (см. таблицу 1) и находящихся на ней компонентов: label (см. таблицу 2), edit (см.табл.3), button (см.табл.4).
Таблица 1
- Выделить объект кнопка Button1 и на вкладке События Инспектора объектов выбрать событие OnClick, затем дважды щёлкнуть на кнопке. В окне кода ввести текст программного кода:
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;
- Запустить проект на выполнение.