Наша взаимовыгодная связь https://banwar.org/
Практична робота в Lazarus , Метою якої є створення програми перекладу заходів ваги (1 пуд = 40 фунтам = 16.38 кг).
Результатом програми є переклад введених чисел в пудах і фунтах в кілограми і повідомлення користувачу цього значення після клацання по кнопці.
- Створити новий проект Проект - створити проект ..., і зберегти його Проект - Зберегти проект як ...
- Розмістити на формі чотири компонента напис Label, два компонента поля введення Edit і одну кнопку Button.
- У вікні інспектора об'єктів задамо властивості форми (див. Таблицю 1) і знаходяться на ній компонентів: label (див. Таблицю 2), edit (см.табл.3), button (див.табл.4).
Таблиця 1
Таблиця 2
Таблиця 3
Таблиця 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;
- Запустити проект на виконання.