Text:= raquo ;;. Text:= raquo ;;. Text := raquo ;;. Text:= raquo ;;. Caption:= 0% raquo ;;; TMainForm.FormActivate (Sender: TObject); (nil);
//значення по умолчанію.Text:= 100 raquo ;;. Text:= 1,00 raquo ;;. Text:= 1,00 raquo ;;. Text:= 1,00 raquo ;;; TMainForm.LabelCalcClick (Sender: TObject) ;: double ;: double ;: double ;: double ;: double ;: double ;: double ;: double ;: double;
//перевірка введення валідних даних в поля банку і коефіцієнтів:=StrToFloat (EditBank.Text); (Handle, У полі Банк введені невірні дані! raquo ;, Помилка введення даних raquo ;, MB_OK) ;;;:=StrToFloat (EditCoef1.Text);:=StrToFloat (EditCoef2.Text); (not IsDoubleForks) then:=StrToFloat (EditCoefX.Text) ;; (Handle, У полі Коефіцієнт введені невірні дані! raquo ;, Помилка введення даних raquo ;, MB_OK) ;;;
//розрахунок для подвійного результату (IsDoubleForks) then:=Round ((bank * coef2/(coef1 + coef2)) * 100) /100;.Text:=FloatToStr (bet1);:= Round ((bank * coef1/(coef1 + coef2)) * 100) /100;.Text:=FloatToStr (bet2);:=bet1 + bet2;:=coef1 * bet1 - betsum; .Text:=FloatToStr (Round ( (profit1) * 100)/100) ;. Text:=FloatToStr (Round ((coef2 * bet2 - betsum) * 100)/100) ;. Caption:=FloatToStr (Round ((100 * profit1/bank) * 100)/100) + % raquo ;;//розрахунок для потрійного результату:=Round ((bank * coef2 * coefX/(coef1 * coef2 + coef1 * coefX + coef2 * coefX)) * 100) /100;.Text: =FloatToStr (bet1);:=Round ((bank * coef1 * coefX/(coef1 * coef2 + coef1 * coefX + coef2 * coefX)) * 100) /100;.Text:=FloatToStr (bet2);:=Round ( (bank * coef1 * coef2/(coef1 * coef2 + coef1 * coefX + coef2 * coefX)) * 100) /100;.Text:=FloatToStr (betX);:=bet1 + bet2 + betX;:=coef1 * bet1 -betsum; .Text:=FloatToStr (Round ((profit1) * 100)/100) ;. Text:=FloatToStr (Round ((coef2 * bet2 - betsum) * 100)/100) ;. Text:=FloatToStr (Round ( (coefX * betX - betsum) * 100)/100) ;. Caption:=FloatToStr (Round ((100 * profit1/bank) * 100)/100) + % raquo ;;;;.
4.3 Приклад використання програми для розрахунку суми ставки за методом критерій Келлі
Необхідно розробити програму, яка за заданими критеріями (коефіцієнт букмекера, сума банку та оцінка ймовірності прохідності події) буде розраховувати суму, яку необхідно поставити для збільшення власного прибутку.
Суть програми полягає в наступному:
Мається який-небудь банк (грошова сума) і коефіцієнт букмекера на спортивну подію, а також особистісна імовірнісна оцінка цієї події гравцем, виражена у відсотках.
Необхідно ввести значення в поля ВАША ОЦІНКА ІМОВІРНОСТІ, КОЕФІЦІЄНТ букмекерів і БАНК і натиснути кнопку Обчислити. Програма розрахує суму ставки і виведе результат в поле СТАВКА ГРАВЦЯ.
Діалогове вікно програми для розрахунку суми ставки за методом критерій Келлі зображено на малюнку 4.5.
Малюнок 4.5. Діалогове вікно програми при натисканні кнопки Обчислити
Значення, що вводиться в поле ОЦІНКА ІМОВІРНОСТІ, повинно лежати в межах від 1 до 100. При недотриманні цього критерію програма видає повідомлення про помилку. Приклад такої ситуації представлений на малюнку 4.6.
Малюнок 4.6. Діалогове вікно Помилка введення даних для поля ОЦІНКА ІМОВІРНОСТІ
При незаповнення полів КОЕФІЦІЄНТ букмекерів і БАНК програма видає помилки введення, представлені на малюнках 4.7 і 4.8 відповідно.
Малюнок 4.7. Діалогове вікно Помилка введення даних для поля КОЕФІЦІЄНТ Букмекери
Малюнок 4.8. Діалогове вікно Помилка введення даних для поля БАНК
Якщо в результаті обчислення сумою ставки виявиться негативне число, то можна зробити висновок, що така ставка не вигідна для гравця. Приклад такого обчислення представлений на малюнку 4.9.
Малюнок 4.9. Діалогове вікно програми з негативним результатом обчислень
Результат натискання кнопки СКИДАННЯ, обнуляти значення всіх полів представлений на малюнку 4.10.
Малюнок 4.9. Діалогове вікно програми при натисканні кнопки СКИДАННЯ
. 4 Лістинг програми для розрахунку суми ставки за методом критерій Келлі
Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TButton ;: TLabel ;: TEdit ;: TButton; Edit1KeyPress (Sender: TObject; var Key: Char); Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations}...
