Sortare rapidă Quicksort

Un tablou V se completeaza cu n elemente numere reale. Sa se ordoneze crescator folosind metoda de sortare rapida. (functia poz realizeaza mutarea elementului v[i] exact pe pozitia ce o va ocupa acesta in vectorul final ordonat; functia poz intoarce (in k) pozitia ocupata de acest element; (pentru fiecare din aceste parti se reapeleaza procedura quick, cu limitele modificate corespunzator; (in acest fel, primul element din fiecare parte va fi pozitionat exact pe pozitia finala ce o va ocupa in vectorul final ordonat (functia poz); (fiecare din cele doua parti va fi, astfel, inpartita in alte doua parti; procesul continua pana cand limitele partilor ajung sa se suprapuna, ceea ce indica ca toate elementele vectorului au fost mutate exact pe pozitiile ce le vor ocupa in vectorul final; deci vectorul este ordonat; program quicksort; type vector= array [1. 50] of real; var v: vector; i, n, k: integer; function poz (li, ls: integer): integer; var i, j, modi, modj, m: integer; man: real; begin i: =li; j: =ls; modi: =0; modj: =-1; while iv[j] then begin man: =v[i]; v[i]: =v[j]; v[j]: =man; m: =modi; modi: =-modj; modj: =-m; end; i: =i+modi; j: =j+modj; end; poz: =i; end; procedure quick (li, ls: integer); begin if li ...