овість' + intToStr (i) + '-ої паперу!');
exit;; _of_stocks [i]: = strtofloat (SG_Input_date.Cells [i, 3]);
except ('Вибачте, Ви не ввели ризик' + intToStr (i) + '-ої паперу!');
exit;;; sum <> 1 then
begin.MessageBox ('Вибачте, сума часток паперів повинна дорівнювати 1', 'Помилка!');
exit;; _of_portfolio: = 0;: = 0; i: = 1 to number_of_stocks to number_of_stocks
except ('Вибачте, Ви не ввели кореляцію' + intToStr (i) + '-ий і' + intToStr (j) + '-ої паперів!');
exit;;; _of_portfolio: = sqrt (dispersion);. Lines.Add ('Очікувана прибутковість портфеля:' + floattostr (roundto (profitability_of_portfolio, -4)) + '%');. Lines . Add ('Стандартне відхилення прибутковості:' + floattostr (roundto (deviation_of_portfolio, -4)) + '%');; TForm_for_ready_portfolio.FormCreate (Sender: TObject); _Input_date.Cells [0,0]: = 'Показник | Номер папери '; _Input_date.Cells [0,1]: =' Частка '; _Input_date.Cells [0,2]: =' Прибутковість ';
SG_Input_date.Cells [0,3]: = 'Стандартне відхилення';
SelectedRow: = 1;: = 1;; TForm_for_ready_portfolio.FormClose (Sender: TObject; Action: TCloseAction); _Risk_or_Profit.Close;; TForm_for_ready_portfolio.SG_Input_dateKeyPress (Sender: TObject; Key: Char); key of
'0 '.. '9', # 8, ',':; key: = # 0;;; TForm_for_ready_portfolio.SG_CorrelationKeyPress (Sender: TObject; Key: Char); key of
else ('Вибачте, кореляція не може бути більше 1!');
// зчитуємо з файлу доходностіi: = 1 to SEValue do
begin (f, a); _Input_date.Cells [i, 2]: = FloatToStr (a);;
// зчитуємо з файлу ріскіi: = 1 to SEValue do (f, a); _Input_date.Cells [i, 3]: = Float...
