Похожие работы на «Метод Гурвица»

Метод Гурвица
Программирование и комп-ры, Метод Гурвица, Курсовая ... m do begin if C_b[i,j]b_b[i] then b_b[i]:=C_b[i,j]; end; {вычисления расчетных выигрышей игрока В} for j:=1 to k do V_b[i,j]:=al[j]*b_m[i]+(1-al[j])*b ...
... b_большая'; for j:=1 to n do begin tabliza.cells[1,j]:=intToStr(b_m[j]); tabliza.cells[2,j]:=intToStr(b_b[j]); end; for i:=1 to n do for j:=1 to k do ...


Разработка системы задач (алгоритмы-программы) по дискретной математике [нестрогое соответствие]
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... i+1; while(j<=N)and Not((j in A[i])and(B[i]+B[j]=[1..M]))do Inc(j); Inc(i); End; InTwoNear:=j<=N; End; Function AddIfCan(mode:integer; S:Sset):Boolean ...
... едут} If mode=0 then For i:=1 to N do C[i]:=B[i]-S Else C:=B; For i:=1 to N do For j:=1 to N do If (i<>j)and(j in A[i])and(C[i]*B[j]*S<>B[j]*S) Then ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x:=0; FOR I:=1 TO T DO begin J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; ...
... if j>=m then begin j:=0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... x:=0; FOR I:=1 TO T DO begin J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; ...
... key:=true; break; end; end; if j>=m then begin j:=0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... wri_val(manual[j],j,true); case a of rightarrow, downarrow : j:=j+1; leftarrow, uparrow : j:=j-1; end; if j>10 then j:=10; if j<0 then j:=0; end; if
... 0; for i:=1 to 30 do with cell[i] do begin for j:=2 to 100 do begin z:=round(sqrt((x[j]-x[j-1])*(x[j]-x[j-1])+(y[j]-y[j-1])*(y[j]-y[j- 1]))); shift[z] ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... 0) then S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) end; if (mode=2) then for j:=1 to 12 do if (mthe[j,1]=upcase(st[i])) and ...
... 1440)) mod 1440; delay:=(delay div 1440)+((a.time+(delay mod 1440)) div 1440); while delay+b.day>DayInMonth(b.month,b.year) do begin delay:=delay-1- ...


Определение стратегии руководства перерабатывающего предприятия по сезонному набору силы с учетом различного объема перерабатывающего сырья [нестрогое соответствие]
Экономико-математическое моделирование, Определение стратегии руководства перерабатывающего предприятия по сезонному набору силы с учетом различного ... ... Y3+162*Y4+262,8*Y5+288*Y6?1 Yj(0; 7. Программа (листинг) Программа находит оптимальную стратегию по критерию Вальда. program Natasha; uses crt; var d, ...
... array[1..6] of real; begin l:=1; clrscr; write('Введите n: '); readln(N); WRITELN(' Введите цену одного рабочего при i-ом уровне производства'); FOR I ...


Нахождение опорного плана транспортной задачи [нестрогое соответствие]
Программирование и комп-ры, Нахождение опорного плана транспортной задачи, Курсовая ... 0 to m-1 do a[i]:=0; SetLength(b,n); for j:= 0 to n-1 do b[j]:=0; SetLength(c,m); for i:= 0 to m-1 do SetLength(c[i],n); for i:= 0 to m-1 do for j:= 0 ...
... to n do begin stgCustomer.Cells[j-1,0]:=IntToStr(j); str(b[j-1],s); stgCustomer.Cells[j-1,1]:=s; end; for i:= 1 to m do stgTarif.Cells[0,i]:=IntToStr( ...


Программа Клон [нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая ... Возвращение рисунка для синих фишек if (a[i,j]=0) then if button=mbLeft then begin if (abs(i-vi)<3) and (abs(j-vj)<3) then begin if (abs(i-vi)=2) or ...
... hod:=true; for i:=0 to 9 do for j:=0 to 9 do begin b[i,j].Left:=i*(image1.Width); b[i,j].top:=j*(image1.Height); b[i,j].Bottom:=b[i,j].Top+image1. ...


Использование табличного симплекс-метода для решения задач линейного программирования для оптимизации экономических задач [нестрогое соответствие]
Программирование и комп-ры, Использование табличного симплекс-метода для решения задач линейного программирования для оптимизации экономических задач ... ... procedure ReadDatesBasisVector; var i : integer; begin for i:=1 to m do BasisVector[i]:=n+i; end; begin Assign(DateFile, 'kurs97.dat'); Reset(DateFile ...
... VectorA[IndexOfOutputString, IndexOfEnterVector]; for i:=0 to m+n do begin VectorA[IndexOfOutputString, i]:=VectorA[IndexOfOutputString, i] / Buffer; ...