Быстрая сортировка. В чем ошибка?

@Max953121 · Регистрация: 11.11.2018

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

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
Program Bistraia;
const n=600;
var i : integer;
var a:array[1..n] of integer;
procedure QSort(first, last: Integer ); 
var l, r, c, x: integer;
begin
if first < last then begin
a[i]:=a[(first + last) div 2]; //Ошибка времени выполнения: Индекс находился вне границ массива
l:=first; r:=last;
while l <= r do begin
while a[l] < x do l:=l+1;
while a[r] > x do r:=r-1;
if l <= r then begin
c:=a[l]; a[l]:=a[r]; a[r]:=c;
l:=l+1; r:=r-1;
end;
end;
QSort(first, r); QSort( l, last);
end; 
end;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(5000+6500+1)-6500;
write(a[i], ' ');
end;
writeln('Нажмите любую кнопку для продолжения');
readln();
for i:=1 to n do
QSort(a[i],a[n]);
writeln('Нажмите любую кнопку для продолжения');
readln();
for i:=1 to n do
write(a[i], ' '); 
end.

@Sun Serega · 11.11.2018, 18:32

Включайте отладку и смотрите где индекс оказывается слишком большим.
Для этого надо нажать F7/F8, или поставить точку останова (на панельке слева можно нажать, появится красная точка) и запустить.

@Max953121 · 11.11.2018, 18:49 **[ТС]**

Исправил, нужно было заменить QSort(a[i],a[n]) на QSort(i,n). Но теперь выдает "Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека". Кто знает, в чем проблема?

@Sun Serega · 11.11.2018, 18:52

Опять же, используйте отладку, она для того и существует.

StackOverflowException значит что какая то подпрограмма вызывала саму себя до бесконечности (пока память не переполнилась).

@Max953121 · 11.11.2018, 18:59 **[ТС]**

Хорошо, спасибо за помощь))

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	11.11.2018, 18:32
	Включайте отладку и смотрите где индекс оказывается слишком большим. Для этого надо нажать F7/F8, или поставить точку останова (на панельке слева можно нажать, появится красная точка) и запустить. 0

@Max953121 0 / 0 / 0 Регистрация: 11.11.2018 Сообщений: 6
	11.11.2018, 18:49 [ТС]
	Исправил, нужно было заменить QSort(a[i],a[n]) на QSort(i,n). Но теперь выдает "Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека". Кто знает, в чем проблема? 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	11.11.2018, 18:52
	Опять же, используйте отладку, она для того и существует. StackOverflowException значит что какая то подпрограмма вызывала саму себя до бесконечности (пока память не переполнилась). 0

@Max953121 0 / 0 / 0 Регистрация: 11.11.2018 Сообщений: 6
	11.11.2018, 18:59 [ТС]
	Хорошо, спасибо за помощь)) 0