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

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

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

 
 Ответить  Открыть новую тему 
> Сортировка в файле, Help
cooler
сообщение 4.04.2007 16:34
Сообщение #1


Бывалый
***

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

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


Вот какое дело: имеется задача (что-то типа базы данных поликлиники), нужно вывести:

1) список иногородних с указанием городов в алфавитном порядке и для каждого города – список фамилий в алф. порядке (сортировка вставками по индексам по 2 параметрам одновременно, индекс- номер позиции в файле)
2) список всех диагнозов, поставленных пациентам старше заданного возраста, в алфавитном порядке(челночная сортировка).

В массивах сортировку могу сделать, а здесь... Да ещё записи по алфавиту...
Помогите пожалуйста!

Заранее благодарен

 ! 
Прикреплять doc-файлы запрещено правилами форума.
мисс_граффити

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 4.04.2007 17:52
Сообщение #2


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


"Что-то типа базы данных" - это, если говорить по-русски, типизированный файл? Или что?
В чем проблема с сортировкой? Выглядит почти так же, как на массивах. Только сортировку вставками для файлов применять нерационально - приходится большое количество записей переписывать.
В общем, показывай, что пробовал делать.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
cooler
сообщение 4.04.2007 20:41
Сообщение #3


Бывалый
***

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

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


Типизированный.

Ну вот массив челночной сортируется так :

 procedure Shaker(var item: DataArray; count:integer);
var
  j, k, l, r: integer;
  x: DataItem;
begin
  l := 2; r := count; k := count;
  repeat
    for j := r downto l do
      if item[j-1] then
      begin    { обмен }
        x := item[j-1];
        item[j-1] := item[j];
        item[j] := x;
        k := j;
      end;

    l := k+1;

    for j := l to r do
      if item[j-1]>item[j] then
      begin   { обмен }
        x := item[j-1];
        item[j-1] := item[j];
        item[j] := x;
        k := j;
      end;

    r := k-1;
  until l>r
end; 

???????
ИЛи нет?

А как я буду сортировать записи?
Покажи, пожалуйста, на примере.
Как будет в проге, в цикле.


Добавлено через 14 мин.
Как отсортировать уже найденные Фамилии по алфавиту?
Если запись фамилий bd.sname
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
cooler
сообщение 9.04.2007 18:31
Сообщение #4


Бывалый
***

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

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


А по первому пункту может подскажете?
Я так думаю: нужно все необходимые записи - в дополнительный массив, и в нем уже сортировать.
Так ?
А как написать код?
Я не знаю
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Renbo
сообщение 9.04.2007 19:03
Сообщение #5


Пионер
**

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

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


Сортировка записей

смотри тут, уже делали и код ниписан....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 

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