Question

СРОЧНО!!!! Створіть програмний код в середовищі Lazarus Завдання 1. Розрахунок оплати за електроенергію (2,4 балів) В Україні за споживання електроенергії визначено такий порядок оплати залежно від спожитого обсягу: вартість 1 кВт при споживанні електроенергії до 100 кВт за місяць – 45,6 грн, від 100 кВт до 600 кВт – 78,9 грн, понад 600 кВт – 147,9 грн. Деяким споживачам надається пільговий обсяг безоплатного користування електроенергією, наприклад, 30 кВт. Якщо така пільга є, то її віднімають від спожитого обсягу, а далі розрахунок здійснюється за прийнятими тарифами. Розробіть у вибраному середовищі програмування проект Оплата за електроенергію, у якому користувач вносить у текстове поле обсяг спожитої електроенергії, та позначає за допомогою елементів управління (визначте самостійно) наявність пільги. Після натиснення кнопки Розрахувати отримує у вікні повідомлення розмір суми для оплати за електроенергію.

Answer 1

Procedure TForm1.Button1Click(Sender: TObject); var result, outgo, privilege, price1, price2, price3: real; begin privilege:=30; price1:=0.71; price2:=1.29; price3:=1.64; outgo:=StrToFloat(Edit1.Text); if CheckBox1.Checked = True then outgo:=outgo-privilege; if outgo < 100 then result:=price1*outgo else if (outgo >= 100) and (outgo < 600) then result:=price2*outgo else result:=price3*outgo; MessageDlg('Сума для оплати за електроенергію:' + #13#10 + FloatToStr(result) + ' грн.', mtInformation, [mbOk], 0); end;

Answer 2

Sure, I can help you create a simple program for calculating electricity payment in Lazarus. You can use a Label to display the result, an Edit to input electricity consumption, and a CheckBox to indicate whether there's a discount.

Here's a sample Lazarus Pascal code for this task:

pascalCopy code
unit ElectricityPaymentCalculator;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    CalculateButton: TButton;
    ConsumptionEdit: TEdit;
    DiscountCheckBox: TCheckBox;
    ResultLabel: TLabel;
    procedure CalculateButtonClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.CalculateButtonClick(Sender: TObject);
var
  Consumption, Rate: Double;
begin
  try
    Consumption := StrToFloat(ConsumptionEdit.Text);

    // Apply discount if applicable
    if DiscountCheckBox.Checked then
      Consumption := Consumption - 30; // 30 kWh discount

    if (Consumption <= 100) then
      Rate := 45.6
    else if (Consumption <= 600) then
      Rate := 78.9
    else
      Rate := 147.9;

    ResultLabel.Caption := 'Total payment: ' + FloatToStr(Consumption * Rate) + ' грн';
  except
    on E: Exception do
      ResultLabel.Caption := 'Invalid input. Please enter a valid consumption value.';
  end;
end;

end.

This code creates a Lazarus form with an "Calculate" button, an Edit field for inputting electricity consumption, and a CheckBox for indicating the discount. When you click the "Calculate" button, the program calculates the payment and displays it in a Label. Make sure to create a new Lazarus project, add the necessary components to the form, and set up the event handlers accordingly.