C++ to Pascal

@Super-Hacker · Регистрация: 26.11.2019

Студворк — интернет-сервис помощи студентам

Недавно написал кюсорт по одной статье, помогите пожалуйста перевести в паскаль

C++

void qsort(int *mas, int size)
{
    int i = 0;
    int j = size - 1;
    int mid = mas[size / 2];
    do
    {
        while(mas[i] < mid)
        {
            i++;
        }
        while(mas[j] > mid)
        {
            j--;
        }
        if (i <= j)
        {
            int tmp = mas[i];
            mas[i] = mas[j];
            mas[j] = tmp;
            i++;
            j--;
        }
    }
    while (i <= j);
    if(j > 0)
    {
        qsort(mas, j + 1);
    }
    if (i < size)
    {
        qsort(&mas[i], size - i);
    }
}

@long399 · 10.07.2020, 11:47

быстрая сортировка на паскале
https://www.cyberforum.ru/post4429912.html

@AnyKey · 10.07.2020, 13:21

Pascal

procedure qsort(a:array of integer;l,r:integer);
var i,j,m,x:integer;
begin
    i:=l;
    j:=r;
    m:=a[(l+r)div 2];
    while i<=j do
    begin
        while a[i]<m do i:=i+1;
        while a[j]>m do j:=j-1;
        if i<=j then
        begin
          x:=a[i];
          a[i]:=a[j];
          a[j]:=x;
          i:=i+1;
          j:=j-1;
        end;
    end;
    if l<j then qsort(a,l,j);
    if i<r then qsort(a,i,r);
end;
 
var a:array of integer;
    i,n:integer;
begin
  write('N=');
  readln(n);
  setlength(a,n);
  randomize;
  for i:=0 to n-1 do
  begin
    a[i]:=random(-99,99);
    write(a[i],' ');
  end;  
  writeln;
  qsort(a,0,n-1);
  for i:=0 to n-1 do
    write(a[i],' ');
  writeln;  
end.

@long399 Модератор 2576 / 1673 / 905 Регистрация: 16.10.2013 Сообщений: 4,929 Записей в блоге: 13
	10.07.2020, 11:47	2
	быстрая сортировка на паскале https://www.cyberforum.ru/post4429912.html 0

Опции темы

C++ to Pascal

Решение