Пример расчета величины в отдельном потоке

Delphi , Компоненты и Классы , Потоки

unit uPiThread;

interface

uses
  Classes;

type
  TPiThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  GlobalPi: Extended;
  GlobalCounter: Int64;

implementation

uses uMain;

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TPiThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TPiThread }

const
 //better to choose odd value, to avoid monotonic increase/decrease ef-fect
  UpdatePeriod = 999999;

procedure TPiThread.Execute;
var sign: Integer;
  PiValue, PrevValue: Extended;
  i: Int64;
begin
 { Place thread code here }
  PiValue := 4;
  sign := -1;
  i := 0;
  repeat
    Inc(i);
    PrevValue := PiValue;
    PiValue := PiValue + sign * 4 / (2 * i + 1);
    sign := -sign;
    if i mod UpdatePeriod = 0 then
    begin
      GlobalPi := PiValue;
      GlobalCounter := i;
      Synchronize(fmMain.UpdatePi);
    end;
  until Terminated or
    (Abs(PiValue - PrevValue) < 1E-19);
end;

end.

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  uPiThread;

type
  TfmMain = class(TForm)
    cbCalculate: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    laBuiltIn: TLabel;
    laValue: TLabel;
    laIterNum: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure cbCalculateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    PiThread: TPiThread;
    procedure UpdatePi;
  end;

var
  fmMain: TfmMain;

implementation

{$R *.dfm}

procedure TfmMain.UpdatePi;
begin
  if IsIconic(Application.Handle) then Exit;
  LaValue.Caption := FloatToStrF(GlobalPi, ffFixed, 18, 18);
  laIterNum.Caption := IntToStr(GlobalCounter) + ' iterations';
end;

procedure TfmMain.FormCreate(Sender: TObject);
begin
  laBuiltIn.Caption := FloatToStrF(Pi, ffFixed, 18, 18);
end;

procedure TfmMain.cbCalculateClick(Sender: TObject);
begin
  if cbCalculate.Checked then
  begin
    PiThread := TPiThread.Create(True);
    PiThread.FreeOnTerminate := True;
    PiThread.Priority := tpLower;
    PiThread.Resume;
  end
  else
  begin
    if Assigned(PiThread) then PiThread.Terminate;
  end;

end;

end.

Программа на Delphi для расчета значения пи с помощью алгоритма Bailey-Borwein-Plouffe (BBP) в отдельном потоке. Калькуляция выполняется в классе TPiThread, который наследуется от класса TThread.

unit uPiThread

В этом модуле содержится класс TPiThread, ответственный за расчет значения пи.

• Процедура Execute - это место, где происходит расчет. Она использует алгоритм BBP для расчета значения пи.
• Переменные GlobalPi и GlobalCounter используются для хранения рассчитанного значения пи и количества итераций соответственно.
• Метод Synchronize используется для обновления UI с рассчитанным значением пи.

unit uMain

В этом модуле содержится форма TfmMain, ответственная за создание UI и обработку ввода пользователя.

• Процедура UpdatePi - это место, где обновляется UI с рассчитанным значением пи.
• Процедура FormCreate - это место, где происходит инициализация формы и настройка UI.
• Процедура cbCalculateClick - это обработчик события клика кнопки "Расчитать". Если checkbox checked, то создается новый экземпляр класса TPiThread и запускается расчет. Если checkbox unchecked, то прерывается существующий поток.

Описание кода

Алгоритм BBP используется для расчета значения пи. Он основан на формуле:

pi/4 = 1 - 1/3 + 1/5 - 1/7 + ...

Эта формула затем применяется итеративно с помощью переменной i следующим образом:

• PiValue инициализируется в 0
• В каждой итерации PiValue обновляется добавлением текущего терма серии (4/(2*i+1)) и вычитанием предыдущего терма (sign * 4/(2*i+1)), где sign альтерирует между -1 и 1.
• Расчет продолжается, пока не будет достигнуто условие остановки, которое в этом случае является разницей между текущим и предыдущими значениями PiValue, которая меньше определенного порога (1E-19).

Расчет выполняется в отдельном потоке для避кания блокировки UI. Метод Synchronize используется для обновления UI с рассчитанным значением пи.

Предложения по улучшению

• Рассмотреть использование более эффективного алгоритма для расчета значения пи, например, алгоритма Чудновского.
• Использовать более надежное условие остановки, например, проверку достижения определенной точности или превышения максимального количества итераций.
• Рассмотреть использование прогресс-бара для индикации прогресса расчета.
• Использовать обработку ошибок для обработки исключений, которые могут возникнуть при расчете.

В статье описывается пример создания и использования потокового процесса в Delphi для расчета значения математической константы пи.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Потоки ::