Листинг программы для расчета букмекерских «вилок»

Текст модуля формы.

unit UnitMain;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, Menus, StdCtrls;

type.

TMainForm = class (TForm).

MainMenu: TMainMenu;

DoubleIssue: TMenuItem;

TrippleIssue: TMenuItem;

Label1: TLabel;

EditBank: TEdit;

Label2: TLabel;

Label3: TLabel;

LabelX: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

EditCoef1: TEdit;

EditCoefX: TEdit;

EditCoef2: TEdit;

EditBet1: TEdit;

EditBetX: TEdit;

EditBet2: TEdit;

EditProfit1: TEdit;

EditProfitX: TEdit;

EditProfit2: TEdit;

LabelCalc: TLabel;

Label4: TLabel;

LabelMargin: TLabel;

procedure TrippleIssueClick (Sender: TObject);

procedure DoubleIssueClick (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure LabelCalcClick (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

MainForm: TMainForm;

implementation.

uses Math;

var.

IsDoubleForks: boolean; //указывает на выбранное количество исходов в расчете.

{$R *.dfm}.

procedure TMainForm. TrippleIssueClick (Sender: TObject);

begin.

IsDoubleForks := False;

//изменяем видимость полей.

LabelX.Visible := True;

EditCoefX.Visible := True;

EditBetX.Visible := True;

EditProfitX.Visible := True;

//обнуляем поля.

EditBet1.Text := '';

EditBet2.Text := '';

EditBetX.Text := '';

EditProfit1.Text := '';

EditProfit2.Text := '';

EditProfitX.Text := '';

LabelMargin.Caption := '0%';

end;

procedure TMainForm. DoubleIssueClick (Sender: TObject);

begin.

IsDoubleForks := True;

//изменяем видимость полей.

LabelX.Visible := False;

EditCoefX.Visible := False;

EditBetX.Visible := False;

EditProfitX.Visible := False;

//обнуляем поля.

EditBet1.Text := '';

EditBet2.Text := '';

EditBetX.Text := '';

EditProfit1.Text := '';

EditProfit2.Text := '';

EditProfitX.Text := '';

LabelMargin.Caption := '0%';

end;

procedure TMainForm. FormActivate (Sender: TObject);

begin.

DoubleIssueClick (nil);

//значения по умолчанию.

EditBank.Text := '100';

EditCoef1.Text := '1,00';

EditCoef2.Text := '1,00';

EditCoefX.Text := '1,00';

end;

procedure TMainForm. LabelCalcClick (Sender: TObject);

var.

coef1: double;

coef2: double;

coefX: double;

bank: double;

bet1: double;

bet2: double;

betX: double;

betsum: double;

profit1: double;

begin.

//проверка ввода валидных данных в поля банка и коэффициентов.

try.

bank := StrToFloat (EditBank.Text);

except.

MessageBox (Handle ,'В поле «Банк» введены неверные данные!', 'Ошибка ввода данных', MB_OK);

Exit;

end;

try.

begin.

coef1 := StrToFloat (EditCoef1.Text);

coef2 := StrToFloat (EditCoef2.Text);

if (not IsDoubleForks) then.

coefX := StrToFloat (EditCoefX.Text);

end;

except.

MessageBox (Handle ,'В поле «Коэффициент» введены неверные данные!', 'Ошибка ввода данных', MB_OK);

Exit;

end;

//рассчет для двойного исхода.

if (IsDoubleForks) then.

begin.

bet1 := Round ((bank*coef2/(coef1+coef2))*100)/100;

EditBet1.Text := FloatToStr (bet1);

bet2 := Round ((bank*coef1/(coef1+coef2))*100)/100;

EditBet2.Text := FloatToStr (bet2);

betsum := bet1 + bet2;

profit1 := coef1*bet1 — betsum;

EditProfit1.Text := FloatToStr (Round ((profit1)*100)/100);

EditProfit2.Text := FloatToStr (Round ((coef2*bet2 — betsum)*100)/100);

LabelMargin.Caption := FloatToStr (Round ((100*profit1/bank)*100)/100) + '%';

end.

else //рассчет для тройного исхода.

begin.

bet1 := Round ((bank*coef2*coefX/(coef1*coef2+coef1*coefX+coef2*coefX))*100)/100;

EditBet1.Text := FloatToStr (bet1);

bet2 := Round ((bank*coef1*coefX/(coef1*coef2+coef1*coefX+coef2*coefX))*100)/100;

EditBet2.Text := FloatToStr (bet2);

betX := Round ((bank*coef1*coef2/(coef1*coef2+coef1*coefX+coef2*coefX))*100)/100;

EditBetX.Text := FloatToStr (betX);

betsum := bet1 + bet2 + betX;

profit1 := coef1*bet1 — betsum;

EditProfit1.Text := FloatToStr (Round ((profit1)*100)/100);

EditProfit2.Text := FloatToStr (Round ((coef2*bet2 — betsum)*100)/100);

EditProfitX.Text := FloatToStr (Round ((coefX*betX — betsum)*100)/100);

LabelMargin.Caption := FloatToStr (Round ((100*profit1/bank)*100)/100) + '%';

end;

end;

end.