Реферат: Технический анализ рынка ценных бумаг на примере акций РАО ЕЭС Россия 2001-2002 гг.

var i,chislo,pr,po,x : integer;

ak : integer; // число акций на руках

mon : integer; // деньги в наших руках

nac,n1,n2,n3,ref : double;

begin

try

mon:=1000*strtoint(edit10.text);

ak:=1000*strtoint(edit11.text);

except

showmessage('При вводе была допущена ошибка');

edit10.text:='100';

edit11.text:='10';

exit;

end;

if (mon=0) and (ak=0) then

begin

showmessage('Так не интересно');

exit;

end;

nac:=round(ak*strtofloat(izm(realn[0])))+mon;

n1:=nac*28.2*0.25*463/365;

n2:=nac*0.23*28.2*120/365;

n3:=nac*28.2*0.21*75/365;

ref:=nac+(n1+n2+n3)/31.6;

chislo:=length(a3);

pr:=0; po:=0;

if length(a3)>0 then begin

for i:=low(a3) to high(a3) do

if a3[i]=1 then inc(po)