Похожие работы на «Моделирование работы банка»

Моделирование работы банка
Экономико-математическое моделирование, Моделирование работы банка, Диплом ... pp[j, y-i]; end; { Поиск r(y) } for j := 1 to S do for y := 0 to L[j] do begin rr[j, y] := R[j, 0] + qq[j, y]; for i := 1 to y do if R[j, i] + qq[j, y ...
... k, y]; end; if f + T2[j-1, i-y].g > T2[j, i].g then begin T2[j, i].y := y; T2[j, i].g := f + T2[j-1, i-y].g; end; end; end; nn := Income[k, 0]; Income ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... и элемент маршрута о цене и времени} For K:=1 to MClass do If Pattern.Class[K] and P^.class[K] then Npath^.cost[k]:=Npath^.cost[k]+CityInPath(P^.path, ...
... If P^.class[I] then Read(Source,Q^.Way[K].cost[I]) else Q^.Way[K].cost[I]:=0; If (J mod 4)=0 then begin If (J<>P^.TotalStation) then begin New(Q^.Next ...


Кодирующее устройство для кода Файера [нестрогое соответствие]
Коммуникации и связь, Кодирующее устройство для кода Файера, Курсовая ... i:=1 to _N do Begin IF F[i]=1 Then Begin t:=1; For j:=i to i+_M-1 do Begin K[j]:=Sum(F[j],P[t]); F[j]:=K[j]; t:=t+1; End; End; End; t:=1; For i:=_N+1 ...
... j*k,i*10+y); Str(Obr_Matr[i,j],Elm); OutText(Elm); End; End; SetColor(4); For i:=1 to _N Do Begin For j:=_N+1 to _N+_M-1 Do Begin MoveTo(x+j*k,i*10+y) ...


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... 1 to MyData.Dimension do if MyData.Matrix[Num,j]=1 then begin N:=MyDraw.FindByNumber(j); PolyLine([MPenPos,N]); end; end;} MyData.Remove(Num); MyDraw. ...
... Num to Dimension-1 do for j:=1 to Dimension do begin Matrix[j,i]:=Matrix[j,i+1]; MatrixLength[j,i]:=MatrixLength[j,i+1]; end; for i:=Num to Dimension- ...


Линейное программирование: решение задач графическим способом [нестрогое соответствие]
Программирование и комп-ры, Линейное программирование: решение задач графическим способом, Курсовая ... if (Frac(N.y / k) = 0) then if (j=k) then begin N.b:=N.b / k; N.x:=N.x / k; N.y:=N.y / k; Break; end end; k:=k-1; until (k<=0); until (N.x<>0) and (N. ...
... далее мы находим максимум функции} BoolAnswer:=False; for k:=1 to i do begin N:=Matr[k]; if (N.x*XResult+N.y*YResult<=N.b) then begin {Если в ОДЗ} c: ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... dx, dy, Range, x1, y1: word; Count: word; begin x := xStart; y := yStart; dx := Round((xEnd-xStart+1) div 3); dy := Round((yEnd-yStart+1) div 3); x1 ...
... n, i: word; newX, newY, z, x, y: real; Color: longint; begin x := 0; y := 0; z := 0; Randomize; for k := 1 to 15000 do begin b[k] := Random(10); if b[ ...


Задача остовных деревьев в k-связном графе [нестрогое соответствие]
Математика, Задача остовных деревьев в k-связном графе , Диплом и связанное с ним ... data[k].x1,data[k].y1- 30,data[k].x1+50,data[k].y1+30, data[k].x1+5,data[k].y1+2,data[k].x1,data[k].y1); break;end; end else //- for k:=1 to i do if ...
... y1)<=100) then begin for k1:=1 to i do if (sqr(x2-data[k1].x1)+sqr(y2-data[k1].y1)<=100) then begin canvas.MoveTo(data[k1].x1,data[k1].y1);x2:=0;y2:=0 ...


Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе [нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая ... i;g:=j;i:=n;j:=m end;j:=j+1 end;i:=i+1 end; if p>s then for j:=1 to m do begin PR[j]:=STM[s,j]; STM[s,j]:=STM[p,j]; STM[p,j]:=PR[j] end; if g<>s then ...
... s to m do STM[i,j]:=STM[s,j]-STM[i,j]; if STM[i,s]=-1 then for j:=s to m do STM[i,j]:=STM[s,j]+STM[i,j] end;end; end; writeln('Матрица главных сечений ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... принимают только три значения (< = >), попытаемся построить два целочисленных вектора f и g: M[i][j] равно >, если f[i]>g[j] M[i][j] равно <, если f[i ...
... Begin{позицианируем на нужную строку} {в s строка с ошибкой} posStr(y,s); inc(i); End; If not Exist Then{неиспользуемый нетерминал} Begin i:=1; Error( ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... 1].show; until k>=g; TG[G].INIT(0,0,0,0); G:=G-1; j:=j-1; end else begin end; until j>=g; end; end; {*} procedure havka; begin if ((z mod 365)=0) and ...
... 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,0,0) ...