Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 17.12.2009, 20:54   #1
Dtska
Новичок
Джуниор
 
Регистрация: 17.12.2009
Сообщений: 2
По умолчанию [Pacsal] Быстрая Соритровка и сортировка обменом (ошибка)

Помогите плиз с программой, пишет что неверно задан тип переменной bq...

Код:
program zzzz;
uses crt;
const n = 14;
type
tip1=integer;
ar=array[1 .. n] of tip1;
ar2=array[1..n] of tip1;
const a:ar = (7,4,72,12,8,232,43,56,121,6,120,13,14,132);
Procedure obmen(Var s1, s2: ar);
Procedure smena(i, j: integer);
Var
T: tip1;
Begin
clrscr;
move(s2[i], T, SizeOf(Tip1));
move(s2[j], s2[i], SizeOf(tip1));
move(T, s2[j], SizeOf(tip1));
End;
Var
i, j: Integer;
Begin
move(s1, s2, SizeOf(ar));
For i := 1 To n Do
For j := n DownTo i + 1 Do
If s2[j-1] > s2[j] Then smena(j-1, j);
  End;

{Quick}
Procedure first(Var aq: ar2; tr: integer);

Procedure qsort(m, l: Integer);
Var i, j, x, w: Integer;
Begin
i := m; j := l;
x := aq[(m+l) div 2];
Repeat
While aq[i]<x Do i:=i+1;
While aq[j]>x Do j:=j-1;
If i<=j Then Begin
w := aq[i]; aq[i] := aq[j]; aq[j] := w;
I:=i+1; j:=j-1;
End
Until i > j;
If m < j Then qSort(m, j);
If i < l Then qSort(i, l)
  End;
var
bq:ar2;
i:integer;
Begin
Writeln ('Quick Sort:');
for i:=1 to n do begin
readln (bq[i]);
end;
 qsort(bq, 1, n);
Writeln ('after qsort');
  for i:=1 to n do write(bq[i],' ');
End;

Var
  b: ar;
  i: Integer;

Begin
  obmen(a, b);
  for i := 1 to n do write(b[i],' ');
End.

Последний раз редактировалось Dtska; 17.12.2009 в 20:59.
Dtska вне форума Ответить с цитированием
Старый 17.12.2009, 21:17   #2
Dtska
Новичок
Джуниор
 
Регистрация: 17.12.2009
Сообщений: 2
По умолчанию

Всё, нашёл в чём проблема)
Dtska вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Быстрая сортировка Serious Общие вопросы Delphi 2 02.11.2010 14:38
Быстрая сортировка _Studentka_ Помощь студентам 9 20.11.2009 01:19
Сортировка простым обменом Sparky Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 26.10.2009 12:58
Быстрая сортировка lennon Общие вопросы C/C++ 0 08.10.2009 23:23
быстрая сортировка ГРИГОРИЙ-кореш Помощь студентам 1 16.04.2009 18:13


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS