Похожие работы на «Быстрые алгоритмы сортировки»

Быстрые алгоритмы сортировки
Программирование и комп-ры, Быстрые алгоритмы сортировки, Курсовая ... a[j] := b end End; Procedure Conflict(i, k : Integer); Var j : Integer; Begin j := 2*i; If j = k then ConSwap(i, j) else if j < k then begin if a[j+1] ...
... b[j] then begin c[k]:=b[j]; c[k+1]:= a[i]; k:=k+2; i:=i+1; j:=j+1 end else if a[i] > b[j] then begin c[k]:= b[j]; k:= k+1; j:= j+1; end else begin c[k ...


Разработка системы задач (алгоритмы-программы) по дискретной математике [нестрогое соответствие]
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... 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 ...
... byte; 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])or(B[i]+B[j]<>[1..m])or Not((SOne=[])or(STwo= ...


Тригонометричні ефемериди планет Сонячної системи [нестрогое соответствие]
Программирование и комп-ры, Тригонометричні ефемериди планет Сонячної системи, Курсовая ... року 0-зима,1-літо 4: begin DR:=59+i+31+D0 ; n:=1;k:=-0.131;end; 5: begin DR:=59+i+61+D0; n:=1;k:=-0.103;end; //k середня поправка зоряного часу 6: ...
... 59+i+122+D0; n:=1;k:=0.013;end; 8: begin DR:=59+i+153+D0; n:=1;k:=0.073;end; 9: begin DR:=59+i+184+D0; n:=1;k:=0.107;end; 10: begin DR:=59+i+214+D0; n ...


Aлгоритмы на графах [нестрогое соответствие]
Программирование и комп-ры, Aлгоритмы на графах, Реферат ... 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 Write('Пути из ...
... 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:=1 to n do If color[i]=col then color[i]:=color ...


Нахождение всех комбинаций расстановки n ферзей на доске n X n [нестрогое соответствие]
Математика, Нахождение всех комбинаций расстановки n ферзей на доске n X n, Курсовая ... вверх_налево} begin {k < n} k := k + 1; c [k] := 1; end; procedure right; {вправо} begin {k > 0, c[k] < n} c [k] := c [k] + 1; end; procedure down; ...
... for i := 1 to n do begin write ('<', i, ',' , c[i], '> '); end; writeln; end; end; procedure UW; {вверх_до_упора_и_обработать} begin while is_up do ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... c: tVec3D); begin c.x:=a.x-b.x; c.y:=a.y-b.y; c.z:=a.z-b.z; end; procedure VecMultNum(k: real; a: tVec3D; var b: tVec3D); begin b.x:=k*a.x; b.y:=k*a
.y; b.z:=k*a.z; end; function ScalarProduct(a,b: tVec3D): real; begin ScalarProduct:=a.x*b.x+a.y*b.y+a.z*b.z; end; end.


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... if (X>=Mini)and(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; ...
... 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. ...


Линейные списки. Стек. Дек. Очередь [нестрогое соответствие]
Программирование и комп-ры, Линейные списки. Стек. Дек. Очередь, Диплом ... ListBegin; i := 0; while i <> ListPos do begin qList := qList^.Next; Inc(i); end; if qList <> nil then begin if qList^.Next <> nil then Inc(ListPos) ...
... i := 0; while i <> ListTwoPos do begin qListTwo := qListTwo^.Next; Inc(i); end; if qListTwo <> nil then begin if qListTwo^.Next <> nil then Inc( ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... и цикл с параметром от 0 до 2} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin {вывод редактируемого вопроса на экран} Read(c ...
... TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора вправо} Begin Window(x,22,x+9,22); {закрашивание ...


Сжатие данных [нестрогое соответствие]
Программирование и комп-ры, Сжатие данных, ... же используется и для сжатия и для развертывания. procedure initialize; var i: downindex; j: upindex; begin for i := 2 to twicemax do up[i] := i div 2 ...
... else a := c { управление в конце нечетным узлом }; until a = root; end { splay }; Чтобы сжать букву исходного текста ее нужно закодировать, используя ...