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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 17.12.2009, 20:54   #1
Dtska
Новичок
 
Регистрация: 17.12.2009
Сообщений: 2
Репутация: 10
По умолчанию [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
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


08:50.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.