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

// зчитуємо з файлу корреляціюi: = 1 to SEValue doj: = 1 to SEValue do (f, a); _Correlation.Cells [i, j]: = FloatToStr (a);;

// зчитуємо з файлу доліi: = 1 to SEValue do (f, a); _Input_date.Cells [i, 1]: = FloatToStr (a);; (f);;; TForm_for_ready_portfolio. NSaveClick (Sender: TObject); f: file of real;, j: integer;: real; SaveDialog1.Execute

// записуємо у файл доходностіi: = 1 to SEValue do

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

// записуємо у файл ріскіi: = 1 to SEValue do: = StrToFloat (SG_Input_date.Cells [i, 3]);: = 0;; (f, a);;

// записуємо у файл корреляціюi: = 1 to SEValue doj: = 1 to SEValue do: = StrToFloat (SG_Correlation.Cells [i, j]);: = 0;; (f, a) ;;

// записуємо у файл доліi: = 1 to SEValue TObject);. ShowModal; TForm_for_ready_portfolio.ApplicationEvents1Hint (: TObject);. SimpleText: = Application.Hint;

end;.