Реферат Розрахунок у програмі оптимального набору цінних паперів у портфелі інвестицій

Risk_or_Profit. FormCreate (Sender: TObject); _Input_date. Cells [0,0]: = 'Показник | Номер папери'; _Input_date. Cells [0,1]: = 'Прибутковість'; _Input_date. Cells [0,2]: = 'Ризик'; _Result. Cells [0,0]: = 'Номер папери'; _Result. Cells [0,1]: = 'Частка';: = 1;: = 1;; TForm_Risk_or_Profit.SG_Input_dateKeyPress (Sender: TObject; Key: Char); key of

'0 '.. '9', # 8, ',':; key: = # 0;;; TForm_Risk_or_Profit.SG_CorrelationKeyPress (Sender: TObject; Key: Char); key of

'0 '.. '9', # 8, ',', '-':; key: = # 0;;; TForm_Risk_or_Profit.E_Risk_or_ProfitKeyPress (Sender: TObject; Key: Char); key of

'0 '.. '9', # 8, ',':; key: = # 0;;; TForm_Risk_or_Profit.SE_Input_countChange (Sender: TObject); i: integer;: = SE_Input_count. Value; i: = 1 to SEValue do_Input_date. Cells [i, 0]: = inttostr (i); _Result. Cells [i, 0]: = inttostr (i); _Correlation. Cells [0, i]: = inttostr (i); _Correlation. Cells [i, 0]: = inttostr (i); _Correlation. Cells [i, i]: = '1 ';; _Input_date. ColCount: = SEValue +1; _Correlation. ColCount: = SEValue +1; _Correlation. RowCount: = SEValue +1; _Result. ColCount: = SEValue +1;; TForm_Risk_or_Profit.BClearClick (Sender: TObject); i, j: integer; i: = 1 to SEValue doj: = 1 to SEValue do_Input_date. Cells [i, j]: =''; _Correlation. Cells [i, j]: =''; _Result. Cells [i, j];;. Clear; _Risk_or_Profit. Clear;
SE_Input_count. Value: = 2;; minRisk (mp: real): real;: = sqrt ((mp * mp * ebe-2 * mp * mbe + mbm)/(ebe * mbm-mbe * mbe));; bisection (a , b, risk: real): real; y1, y2, c: real;: = MinRisk (a) - risk;: = MinRisk (b) - risk; abs (y2)> 0.000001 do: = (a + b )/2;: = MinRisk (c) - risk; y1 * y2 <0b: = cbegin a: = c; y1: = y2; end;;: = c;; TForm_Risk_or_Profit. Get_Date: boolean; i, j: integer;: = True; _of_stocks: = SE_Input_count. Value; i: = 1 to number_of_stocks do [i, i]: = 1; [i]: = strtofloat (SG_Input_date. Cells [i, 1]); ('Вибачте, Ви не ввели прибутковість' + intToStr (i) + '-й паперу!');: = False;;; _of_stocks [i]: = strtofloat (SG_Input_date. Cells [i, 2]); ('Вибачте, Ви не ввели ризик' + intToStr (i) + '-й паперу! ');: = False;;; [i, i]: = sqr (deviation_of_stocks [i]);; i: = 1 to number_of_stocks doj: = i +1 to number_of_stocks doB [i, j]: = strtofloat (SG_Correlation. Cells [j, i]) * deviation_of_stocks [i] * deviation_of_stocks [j];
except ('Вибачте, Ви не ввели кореляцію' + intToStr (i) + '-ий і' + intToStr (j) + '-ої паперів!');

result: = False;;; [j, i]: = B [i, j]; [i, j]: = 0; [j, i]: = 0;;;; base; i, j, k, l, a: integer; i: = 1 to number_of_stocks doj: = 1 to number_of_stocks dok: = 1 to number_of_stocks do [j, k]: = B [j, k]...