Быстрая сортировка. Программа работает, но не могу поставить счетчик операций присваивания

21.11.2013, 13:42. Показов 713. Ответов 0

Метки нет (Все метки)

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

Сортировка работает, массив выводится, но нужно ввести целочисленный счетчик (устанавливаемый в 0 в начале работы алгоритма сортировки), который будет увеличиваться на единицу после каждой операции обмена (т.е. операции присваивания, в правой или левой части которой встречается элемент массива а). Вставлять счетчик пробовал, но он считает только присвоения в одном цикле и выводит 3. Уже всю голову сломал. Выручайте.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt;
type massiv=array [1..500] of integer;
var
  a:massiv;
  i,j,n:integer;
procedure qs(l,r:integer);
var
  i,j,x,y: integer;
begin
  i:=l; j:=r;
  x:=a[(l+r)div 2];
  repeat
    while a[i]<x do i:=i+1;
    while a[j]>x do j:=j-1;
    if i<=j then 
     begin
      y:=a[i];
      a[i]:=a[j];
      a[j]:=y;
      i:=i+1; j:=j-1;
     end;
  until i>j;
  if l<j then qs(l,j);
  if i<r then qs(i,r);
end;
begin
clrscr;
randomize;
write('Введите размер массива не более 500 n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
  begin
   a[i]:=random(100);
   write(a[i],' ');
  end;
writeln;
qs(1,n);
writeln('Массив после сортировки: ');
for i:=1 to n do
write(a[i],' ');
readln;
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

21.11.2013, 13:42

Ответы с готовыми решениями:

Быстрая сортировка, необходим счетчик перестановок
Куда в этой программе неоходимо вставить счетчик перестановок? и потом вывести его. program n1; const n = 7; var i, j, c,k4: integer;...

Быстрая сортировка с подсчетом операций сравнения
Помогите пжста разобраться с проблемой ... прога сортирует массив сортировками шелла и быстрой, подсчитывает кол-во операций! Для...

Не работает счетчик операций
Всем доброго вечера,может кто помочь? Изначально было задание переписать программу из паскалая в с++ включая процедуру findsum строки...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

21.11.2013, 13:42

Помогаю со студенческими работами здесь

Быстрая сортировка, ситуация, при которой сортировка работает не корректно
Procedure sort(m, l: Integer); Var i, j, x, w: Integer; Begin i := m; j := l; x := ar; Repeat While...

Быстрая сортировка. Не могу найти ошибку!.
Написала вот такую программу, которая создает массив из случайных чилел, потом их сортирует. Работаю под Visual Studio 2010. #include...

Быстрая сортировка не работает
Ребята помогите довести до ума прогу. :cry: Прога сама случайным образом заполняет масив например из 10 положительных чисел в пределах от...

Быстрая сортировка работает наполовину
Всем здрасте,проблемка есть. #include <stdio.h> #include <stdlib.h> #define N 10 int main() { int arr; //то что...

Неправильно работает быстрая сортировка
Нашел на форуме код с сортировкой ( быстрая сортировка ) но он почему то не правильно отрабатывает посмотрите в чем причина,я не могу...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Наверх