Реферат: Программа оптимизации рискового портфеля

writeln;

out1:

writeln;

writeln(' Введите количество видов ценных бумаг, из которых вы хотите ');

write(' сформировать портфель (не более 10): ');

readln(n);

if (n<=0) or (n<>int(n)) or (n>10) then

begin

writeln(' Ошибка ввода! Число должно быть натуральным и меньше 10 ! ');

goto out1;

end;

writeln;

writeln(' Введите эффективности (доходности) ценных бумаг:');

for i:=1 to n do

begin

E[i,i]:=1;

out2:

write(' ',i,'-ого вида : ');

readln(m[i]);

if (m[i]<0) then

begin

writeln(' Ошибка ввода! Число должно быть положительным! ');

goto out2;

end;

end;

writeln;

writeln('!!! При вводе рисков и совместных вариаций ценных бумаг следует');

writeln(' быть внимательным, так как программа не расчитана на линейную');

writeln(' связь доходностей ценных бумаг. Поэтому рекомендуется не вводить');