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

астка паперів негативна, то необхідно провести угоду В«short saleВ»,' + # 9 # 13

+ 'виключити папери цього виду з портфеля і вирішити завдання заново.';

end;; TForm_Risk_or_Profit.BDrawGraphClick (Sender: TObject); Get_Date then. Clear;. Clear;;;;; TForm_Risk_or_Profit.SG_CorrelationSelectCell (Sender: TObject;, ARow: Integer; var CanSelect: Boolean); ACol = ARowbegin CanSelect: = False; exit; end; _CorrelationExit (Sender);: = ARow;: = ACol; ; TForm_Risk_or_Profit.SG_CorrelationMouseUp (Sender: TObject;: TMouseButton; Shift: TShiftState; X, Y: Integer); _CorrelationExit (Sender);; TForm_Risk_or_Profit.SG_CorrelationExit (Sender: TObject); abs (StrToFloat (SG_Correlation. Cells [SelectedCol, SelectedRow] )) <= 1 then SG_Correlation. Cells [SelectedRow, SelectedCol]: = SG_Correlation. Cells [SelectedCol, SelectedRow] ('Вибачте, кореляція не може бути більше 1!'); _Correlation. Cells [SelectedCol, SelectedRow]: = '0 '; _Correlation. Cells [SelectedRow, SelectedCol]: = '0 ';; _Correlation. Cells [SelectedCol, SelectedRow]: = '0 '; _Correlation. Cells [SelectedRow, SelectedCol]: = '0 ';;; TForm_Risk_or_Profit.NOpenClick (Sender: TObject); f: file of real;, j: integer;: real; OpenDialog1. Execute (Sender); (f, OpenDialog1. FileName); (f);. MessageBox ('Вибачте, неможливо відкрити файл!', 'Помилка!'); p align="justify"> end; (f, a);: = round (a); _Input_count. Value: = SEValue;

// зчитуємо з файлу прибутковості

for i: = 1 to SEValue do

begin (f, a); _Input_date. Cells [i, 1]: = FloatToStr (a);;

// зчитуємо з файлу ріскіi: = 1 to SEValue do (f, a); _Input_date. Cells [i, 2]: = FloatToStr (a);;

// зчитуємо з файлу корреляціюi: = 1 to SEValue doj: = 1 to SEValue do (f, a); _Correlation. Cells [i, j]: = FloatToStr (a);; (f);;; TForm_Risk_or_Profit.NSaveClick (Sender: TObject); f: file of real;, j: integer;: real; SaveDialog1. ExecuteExtractFileExt (SaveDialog1. FileName) ='' SaveDialog1. FileName: = SaveDialog1. FileName + '. Tpr'; (f, SaveDialog1. FileName); (f);: = SEValue; (f, a);

// записуємо у файл прибутковості

for i: = 1 to SEValue do

begin: = StrToFloat (SG_Input_date. Cells [i, 1]);: = 0;; (f, a);

end;

// записуємо у файл ризики

for i: = 1 to SEValue do: = StrToFloat (SG_Input_date. Cells [i, 2]);: = 0;; (f, a);

end;

// записуємо у файл кореляцію

for i: = 1 to SEValue doj: = 1 to SEValue do: = StrToFloat (SG_Correlation. Cells [i, j]);: = 0;; (f, a);;

// записуємо у файл доліi: = 1 to SEValue do: = 0; (f, a);; (f);;; TForm_Risk_or_Prof...