Похожие работы на «Разработка системы задач (алгоритмы-программы) по дискретной математике »

Разработка системы задач (алгоритмы-программы) по дискретной математике
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... Var i,j:integer; Begin i:=1; j:=N+1; while (iN)do begin j:=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: ...
... i,j:integer;Var t:integer); var m:integer; begin If i>j then Writeln('No') else begin m:=(i+j)div 2; Inc(b); If A[m]X then Solve(i,m-1,t) else Write(b ...


Aлгоритмы на графах
Программирование и комп-ры, Aлгоритмы на графах, Реферат ... if k=B then Begin f:=true; break End End End; if f then Begin k:=B; Write(B); While Prev[k]<>0 do Begin Write('<-', Prev[k]); k:=Prev[k] end End else ...
... i, j]; a:=i; b:=j End; len:=len+min end; Begin Clrscr; Init; For k:=1 to n-1 do Begin Findmin(a, b); Ribs[k].a:=a; Ribs[k].b:=b; col:=Color[b]; For i: ...


Нахождение кратчайшего пути
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... X=(k*X+b-8) )and ( Y<=(k*X+b+8)) then begin Flag:=true; Select(i,j); Exit; end; end; inc(i); until(Flag)or(i>Dimension); inc(j); i:=1; until(Flag)or(j ...
... Remove(Num:integer); var i,j:integer; begin for i:=Num to Dimension-1 do for j:=1 to Dimension do begin Matrix[j,i]:=Matrix[j,i+1]; MatrixLength[j,i] ...


Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... var i: integer; begin for i:= 1 downto 0 do write(Hex[((B shr (i shl 2)) and $000F)]) end; procedure WritelnHex(B: byte); begin WriteHex(B); writeln ...
... semicolon]) AND (k<6) do k:= succ(k); if Line[k] <> semicolon then begin Appropriate := true; if Line[k] = colon then begin CharPos := k + 1; end end


Математическое моделирование физических задач на ЭВМ
Физика, Математическое моделирование физических задач на ЭВМ, Диплом ... Ad Of 0: Begin i:=Ai+1; j:=Aj-1; End; 1: Begin i:=Ai-1; j:=Aj+1; End; 2: Begin i:=Ai-1; j:=Aj+1; End; 3: Begin i:=Ai+1; j:=Aj-1; End; End; While Flag1 ...
... f1 Do Begin k:=NextDiv(i+j); If ElEqu(A[k-1],A[i])And ElEqu(A[k-2],A[i+1]) Then Begin f1:=False; l:=PrevDiv(k); For m:=0 To Sizex-k Do A[l+m]:=A[k+m] ...


Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Программирование и комп-ры, Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x , Диплом и связанное с ним ... Fl:boolean; begin Cursor(False); Fl:=True; M[1]:=SS1;M[2]:=SS2;M[3]:=SS3;M[4]:=SS4;M[5]:=SS5;M[6]:=SS6; M[7]:=SS7;M[8]:=SS8;M[9]:=SS9; T:=Length(M
... RAZDEL50; Ьа115[погаег5]:=rez5; Itog[nomer5]:=Itog[nomer5]+ball5[nomer5]; K[nomer5]:=K[nomer5]+1; end; end; 6:begin NOMER6:=NOMER6+1; If NOMER6<3 then ...


Распределенные алгоритмы
Программирование и комп-ры, Распределенные алгоритмы , Учебник ... 0 .. B-1]. Loss: { m ( M } (* M - либо Mp, либо Mq *) begin remove m from M end Dupl: { m (M } (*M - либо Mp, либо Mq *) begin insert m in M end Time: ...
... что # {k : a ? k < b & n|k} кратно n, и # {k : a ? k < b & n не |k} кратно n. Размеры двух множеств в сумме составляют b-a, откуда следует, что n|(b-a ...


Поиск в ширину на графах [нестрогое соответствие]
Программирование и комп-ры, Поиск в ширину на графах, Курсовая ... writeln('КОЛ-ВО РЕБЕР СОЗДАННОГО ГРАФА: ',kolvo); end; {- ***Процедура просмотра графа с v-той вершины методом поиска в ширину***} Procedure WS(v:word ...
... el:=lst[j]; em:=m[j]; ver[j]:=ver[j+1]; lst[j]:=lst[j+1]; m[j]:=m[j+1]; ver[j+1]:=exch; lst[j+1]:=el; m[j+1]:=em; end; end; {=} begin while menu<>'4' ...


Метод Гурвица [нестрогое соответствие]
Программирование и комп-ры, Метод Гурвица, Курсовая ... 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 ...
... C_ b[i,j]> b_b[i,j] да 41 40 b_m[pic]:=C_ b[pic] C_ b[i,j]< b_m[i,j] да 39 38 37 36 35 b_m[pic]:=C_ b[pic] 34 Цикл 12 [pic] b_b[pic]:=C_b[pic] b_m[pic ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... Символ |Шаг 1 (начало построения) |Последний шаг (результат) | |(U) |L(U) |R| |L(U) |R(U) | ... | |U| | ... | |J |( p |)| |( p |) p | | | |p| | | | |T ...
... принимают только три значения (< = >), попытаемся построить два целочисленных вектора f и g: M[i][j] равно >, если f[i]>g[j] M[i][j] равно <, если f[i ...