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

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

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

    Таблица 1

    tablica2

    Таблица 2

    tablica3

    Таблица 3

    tablica4

    Таблица 4

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

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

  4. Выделить объект кнопка 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;
    
  5. Запустить проект на выполнение.
like
Понравилось?
Подпишитесь на рассылку и получайте новые статьи!
Поделитесь в соц. сетях: