Question

Побудуйте математичну модель і напишіть проєкт для обчислення значення виразу (3 * a – b) * (a + 2 * b). В програмі Lazarus. 50 балов

Answer 1

program Math;

var

 a, b, result: Real;

begin

 Write('Введіть значення a: ');

 Readln(a);

 Write('Введіть значення b: ');

 Readln(b);

 result := (3 * a - b) * (a + 2 * b);

 Writeln('Результат: ', result);

end.

Answer 2

Ось приклад проекту в середовищі Lazarus для обчислення значення виразу (3 * a - b) * (a + 2 * b):

pascalCopy code
program ExpressionCalculator;

{$mode objfpc}{$H+}

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EditA: TEdit;
    EditB: TEdit;
    ButtonCalculate: TButton;
    procedure ButtonCalculateClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.ButtonCalculateClick(Sender: TObject);
var
  a, b, result: Double;
begin
  // Отримуємо значення a та b з полів введення
  a := StrToFloat(EditA.Text);
  b := StrToFloat(EditB.Text);

  // Обчислюємо значення виразу (3 * a - b) * (a + 2 * b)
  result := (3 * a - b) * (a + 2 * b);

  // Виводимо результат на екран
  ShowMessage('Значення виразу: ' + FloatToStr(result));
end;

end.

Цей проект містить одну форму з двома текстовими полями (EditA та EditB), мітками для цих полів (Label1 та Label2) і кнопкою (ButtonCalculate), яку можна натиснути для обчислення значення виразу. Коли кнопка натискається, викликається подія ButtonCalculateClick, де здійснюється обчислення та виведення результату за допомогою функції ShowMessage.

Будь ласка, зверніть увагу, що у цьому проекті передбачається, що користувач введе числа для змінних a та b. Якщо користувач введе некоректні дані, програма може згенерувати виняток. У реальному проекті бажано додатково забезпечити перевірку та обробку помилок вводу користувача.