IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Проблема с QuickSort
RathaR
сообщение 5.07.2009 12:37
Сообщение #1


Знаток
****

Группа: Пользователи
Сообщений: 346
Пол: Мужской
Реальное имя: Иван

Репутация: -  7  +


Проблема в следующем: при выполнении у меня "быстрая сортировка" виснет... из ниоткуда параметр І приобретает заоблачные значения. Ошибку найти никак немогу...

program quicksort;
var
F2:text;
I:integer;
M1:array[1..10] of integer;
procedure Sort(A,B:integer);
var I,J,X,P:integer;
begin
Repeat
I:=A; J:=B;
X:=M1[(B+1)div 2];
if M1[I]<X then inc(I); {Вот здесь І приобретает нереальные значения}
if M1[J]>X then dec(J);
If I<=J then begin
P:=M1[I];
M1[I]:=M1[J];
M1[J]:=P;
inc(I); dec(J);
end;
Until I>J;

If A<J then Sort(A,J);
If I<B then Sort(I,B);
end;
begin
Assign(F2,'Sort.sol');
rewrite(F2);
randomize;
For I:=1 to 10 do
M1[I]:=random(100);
Sort(1,10);
For I:=1 to 10 do write(F2,M1[I]);
close(F2);
end.


Выполнял на TDE и Borland Pascal
Помогите разобратся rolleyes.gif

Сообщение отредактировано: RathaR - 5.07.2009 12:38


--------------------
Считающий себя единственым здравомыслящим человеком сумасшедший? Если да, возможно я псих...
Пусть умолкнет всякий критик!
Я - системный аналитик!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 24.06.2025 2:23
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"