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

Технический анализ рынка ценных бумаг на примере акций РАО ЕЭС Россия 2001-2002 гг.
Программирование и комп-ры, Технический анализ рынка ценных бумаг на примере акций РАО ЕЭС Россия 2001-2002 гг. , Работа Курсовая ... if sc1=1 then begin setlength(a3,sc1); a3[sc1-1]:=1; setlength(b3,sc1); b3[sc1-1]:=i+2; inc(sc1); tec:=i+1; izm2:=true; // izm1:=true; end else if a3[ ...
... a3,sc1); a3[sc1-1]:=2; setlength(b3,sc1); b3[sc1-1]:=i+2; inc(sc1); tec:=i+1; izm2:=true; //izm1:=true; end else if a3[sc1-2]=1 then begin // продажа ...


Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров [нестрогое соответствие]
Программирование и комп-ры, Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров, Контрольная ... J + 1 < Image1.Picture.Bitmap.Width then begin Summ := Summ + PrevisionLine^[J + 1]; end; end; if J > 0 then begin Summ := Summ + CurrentLine^[J - 1] ...
... J + 1 < Image1.Picture.Bitmap.Width then begin Summ := Summ + NextLine^[J + 1]; end; end; if (Summ div 9) <= Value then CurrentLine^[J] := Summ div 9; ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... 1); Goto New; End Else Begin inc(i); Blank; If not notTerminal(term) Then Begin Error(4); Goto New; End Else Begin{есть нетерминал} Blank; If not (s[i ...
... в общий список теминалов&нетерминалов} inc(CTrmNotTrm); End; Complete(NotTerminalL,NotT);{лев. часть} inc(CTerm); inc(i); Blank; If not (Copy(s,i,2) ...


Разработка игровой программы [нестрогое соответствие]
Программирование и комп-ры, Разработка игровой программы, Курсовая ... Повоорт дула вправо} if ord(a)=27 then menu:=true; {Выход в меню} if fi3*pi/2 then fi:=3*pi/2; if a=' ' then begin {Выстрел} if (not(fire.v)) and (not ...
d:=1 to 100 do begin if sou then sound(random(200)+100);delay(1); end; nosound; fire.v:=true; fire.r:=35; fire.si:=sin(fi)*1.1; fire.co:=cos(fi); ok: ...


Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры [нестрогое соответствие]
Программирование и комп-ры, Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с ... ... crx,cr_type,false); | |if promah then promah:=false; | |end else begin | |if cr_ind mod cr_type*5=0 then begin | |if promah then begin | |if flang=0 ...
... croldx,cr_type,false); | |Sheep(crx,cr_type,true); | |croldx:=crx; | |end; | |end else begin | |if crx=150 then begin | |inc(cr_ind2); | |if cr_ind2<3 ...


Автоматизированная система распределения мест и оценок качества олимпиадных заданий [нестрогое соответствие]
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним ... DataType := ftFloat; Required := True; end; with AddFieldDef do begin Name := 'MARK3'; DataType := ftFloat; Required := True; end; with AddFieldDef do ...
... DataType := ftFloat; Required := True; end; with AddFieldDef do begin Name := 'SCHOOL'; DataType := ftString; Size := 35; end; with AddFieldDef do ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... 16); p:=320+(p and 15); goto RePaINt; end; end; $48: begin if (p>15)or(l1<>0)then dec(p,16); if p<0 then begin dec(l1,16); p:=p and 15; goto RePaINt; ...
... p>0)or(l1<>0)then dec(p); if p<0 then begin dec(l1,16); p:=15; goto RePaINt; end; end; $49: begin if (l1>319) then begin dec(l1,320) end else l1:=0; ...


Утилита диагностики компьютера [нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом ... FClockPriority:=Value; case FClockPriority of cpIdle: begin FDesiredProcessPriority:=IDLE_PRIORITY_CLASS; FDesiredThreadPriority :=THREAD_PRIORITY_ ...
... for testing small block of // code when it must be put in the processor cache begin FDeltaValue:=0; if FCounterSupported and assigned(FPrecizeProc) ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x:=hr[i].getx; y:=hr[i].gety; At:=hr[I].DAIAGE; CTp:=hr[I].DAIZWET; if (z mod 365)=0 then BEGIN at:=at+1; {Happy New Year!} hr[I].INIT(X,Y,At,CTp) ...
... IF COL=3 THEN COLO:='ГОЛУБОЙ'; IF COL=4 THEN COLO:='КРАСНЫЙ'; IF COL=5 THEN COLO:='ФИОЛЕТОВЫЙ'; IF COL=6 THEN COLO:='КОРИЧНЕВЫЙ'; IF COL=7 THEN COLO: ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g)+1; tg[j].done; tg[j].init(0,0 ...
... ЧЕРНЫЙ'; IF COL=1 THEN COLO:='СИНИЙ'; IF COL=2 THEN COLO:='ЗЕЛЕНЫЙ'; IF COL=3 THEN COLO:='ГОЛУБОЙ'; IF COL=4 THEN COLO:='КРАСНЫЙ'; IF COL=5 THEN COLO: ...