|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.09.2007, 12:21 | #1 |
Новичок
Джуниор
Регистрация: 14.09.2007
Сообщений: 2
|
Сортировка в таблице...
Необходимо создать однородную таблицу. Затем применить три метода сортировки: Бинарным включением, простым обменом, быстрая сортировка. по ключам №3 и №4. И подсчитать количество сравнений и обменов.
И так создаем таблицу: Program sort; Uses Crt; Const Max = 8; Type GD = record Bilet: Byte; Marshrut: String; Data: Integer; Vagon: Byte; Mesto: Byte; end; var x: GD; Tab: array [0..Max] of GD; //собственно сама таблица i,j,r,l,m,k: byte ; begin for i:=1 to max do with tab[i] do begin //заполняемтаблицу writeln('Nomer Bileta: ',i); readln(tab[i].bilet); Write('Marshrut:'); readln(tab[i].marshrut); Write('Data Viezda:'); Readln(tab[i].data); Write('Nomer Vagona:'); Readln(tab[i].vagon); Write('Nomer Mesta:'); Readln(tab[i].mesto); end; //Далее нужно выполнить бинарную сортировку включениями Пробовал примастить вот это: for i:=2 to max do begin x:=tab[i]; k:=tab[i].data; l:=1; r:=i-1; while l<r do begin m:=(l+r) div 2; if k<tab[m].data then r:=m-1 else l:=m+1; end; for j:=i-1 downto l do tab[j+1]:=tab[j]; tab[l]:=x; end; // не сортирует... Помогите пожалуйста решить эту задачу... |
14.09.2007, 20:50 | #2 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Вот разные варианты сортировак, там уж сам! Надеюсь поможит!Sortirivki.rar
Я не маюсь бездельем, я от него тащусь!
|
23.09.2007, 12:10 | #3 |
Новичок
Джуниор
Регистрация: 14.09.2007
Сообщений: 2
|
спасибо дружище!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поле в таблице | s.mag | БД в Delphi | 7 | 15.05.2008 18:23 |
1. Сортировка Шелла по убыванию 2. Сортировка вставками по убыванию | Arkuz | Помощь студентам | 1 | 25.09.2007 17:16 |
Сортировка в таблице Paradox | Longedok | БД в Delphi | 2 | 14.07.2007 19:29 |