Quicksort – zápis v prog. jazyce procedure Quicksort(var b:pole; m,n:integer); var i, j, p, x: integer; begin i:=m; j:=n; p:=b[(i+j)div 2]; repeat whi
{"Image DocumentName": "Quicksort \u2013 z\u00e1pis v prog. jazyce", "Image ImageDescription": "procedure Quicksort(var b:pole; m,n:integer); var. i, j, p, x: integer; begin. i:=m; j:=n; p:=b[(i+j)div 2]; repeat. while b[i]<p do. i:=i+1; while b[j]>p do. j:=j\u22121; if i<=j then. pom:=b[i]; b[i]:=b[j]; b[j]:=pom; end; until i>=j; if j>m then. Quicksort(b, m,j); if i<n then. Quicksort(b, i,n); end; begin. Quicksort(b, 1, n);", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}