Question

В лазарусі створіть програму, що буде розв'язувати лінійне рівняння, і принатиснення на кнопка "Знайти корінь", демонструватиме результат з картинкою, що вітає з розв'язанням

Answer 1

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

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

type

{ TForm1 }

TForm1 = class(TForm)

btnFindRoot: TButton;

edtA: TEdit;

edtB: TEdit;

lblA: TLabel;

lblB: TLabel;

lblResult: TLabel;

procedure btnFindRootClick(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.btnFindRootClick(Sender: TObject);

var

a, b, x: Double;

begin

// Отримуємо значення коефіцієнтів a та b з полів введення

a := StrToFloat(edtA.Text);

b := StrToFloat(edtB.Text);

// Розв'язуємо лінійне рівняння

x := -b / a;

// Виводимо результат на екран

lblResult.Caption := 'Корінь рівняння: x = ' + FloatToStr(x);

// Завантажуємо картинку з вітанням

// (переконайтеся, що файл "congrats.jpg" знаходиться в тій же папці, що й файл проекту)

Image1.Picture.LoadFromFile('congrats.jpg');

end;

end.