Урок з інформатики містить розробку практичної роботи в середовищі програмування Lazarus, презентацію і створену програму.
Практична робота №3. Розробка форм та розміщення на ній елементів керування.
Завдання.
В родині здійснюються такі витрати: 40%— на їжу, 25% бюджету— обов’язкові комунальні платежі, 10%- плата за навчання, 20%— кредити.
У середовищі програмування Lazarus розробіть проект «Поточні витрати сім’ї за для розрахунку оплати відповідно до показників квитанції платежів. Передбачте введення значень витрат у вікнах введення, відображення розміру оплати — на формі проекту та виведення про відсутність заборгованості в інформаційне вікно.
Витрати |
Відсотки, % |
Їжа |
40 |
Платежі |
25 |
Плата за навчання |
10 |
Кредити |
20 |
Редактор коду:
procedure TForm1.Button1Click(Sender: TObject);
var prod, platezi,navchan:real;
begin
prod := StrToFloat(InputBox('Введення числа', 'Введіть витрати на їжу ', ''));
platezi:=StrToFloat(InputBox('Ввведення даних','Веедіть витрати на комунальні платежі',''));
navchan:=StrToFloat(InputBox('Ввведення даних','Веедіть витрати на навчання',''));
label6.Caption:=FloatToStr(prod);
label7.Caption:=FloatToStr(platezi);
label8.Caption:=FloatToStr(navchan);
label10.Caption:=FloatToStr(prod+platezi+navchan);
MessageDlg('У вас відсутність заборгованості! ', mtInformation, [mbOk], 0);
end;
end.
Намагайся бути розумним, а не багатим: багатства можна позбутися, а розум завжди з тобою.
Практична робота №3. Розробка форм та розміщення на ній елементів керування.
Завдання.
В родині здійснюються такі витрати: 40%— на їжу, 25% бюджету— обов’язкові комунальні платежі, 10%- плата за навчання, 20%— кредити.
У середовищі програмування Lazarus розробіть проект «Поточні витрати сім’ї за для розрахунку оплати відповідно до показників квитанції платежів. Передбачте введення значень витрат у вікнах введення, відображення розміру оплати — на формі проекту та виведення про відсутність заборгованості в інформаційне вікно.
Витрати |
Відсотки, % |
Їжа |
40 |
Платежі |
25 |
Плата за навчання |
10 |
Кредити |
20 |
Редактор коду:
procedure TForm1.Button1Click(Sender: TObject);
var prod, platezi,navchan:real;
begin
prod := StrToFloat(InputBox('Введення числа', 'Введіть витрати на їжу ', ''));
platezi:=StrToFloat(InputBox('Ввведення даних','Веедіть витрати на комунальні платежі',''));
navchan:=StrToFloat(InputBox('Ввведення даних','Веедіть витрати на навчання',''));
label6.Caption:=FloatToStr(prod);
label7.Caption:=FloatToStr(platezi);
label8.Caption:=FloatToStr(navchan);
label10.Caption:=FloatToStr(prod+platezi+navchan);
MessageDlg('У вас відсутність заборгованості! ', mtInformation, [mbOk], 0);
end;
end.
Намагайся бути розумним, а не багатим: багатства можна позбутися, а розум завжди з тобою.