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

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

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

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

Ответ
 
Опции темы
Старый 17.12.2009, 23:44   #1
Taisja
Пользователь
 
Регистрация: 31.05.2008
Сообщений: 25
Смущение Помогите разобраться с сортировкой файла

Я написала сортировку файла, это "пузырек", вот только не знаю, с ограничением или нет. Подскажите, пожалуйста.
Формулировка:
При каждом просмотре элементов файла первый элемент сравнивают со вторым и меньший ставят на первое место. Второй элемент сравнивают с третьим и меньший ставят на второе место. Эта процедура продолжается до тех пор, пока не будет обработан весь файл. Затем совершают второй, третий и т.д. просмотры, пока во время просмотра не будет проведено ни одной перестановки. Элементы файла будут отсортированы по возрастанию.
Получилось так:
Код:
 repeat
    Ch:= FALSE;
     for k := 1 to n-1 do begin
  seek(f,0);
 For i:=1 to n-k do begin
  m:=filepos(f);
  read(f,a);
  t:=filepos(f);
  read(f,b);
  if a>b then
		    begin seek(f,m); write(f,b);
			  write(f,a);
        ch:=TRUE;
         end;
		  seek(f,t);
	    end;
      end;
      until
    not ch;
Taisja вне форума Ответить с цитированием
Ответ

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

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с сортировкой maxic Microsoft Office Excel 5 21.02.2009 17:47
Привет всем!Помогите пожалуйста с сортировкой файла в Delphi, заранее спасибо Taisja Помощь студентам 2 01.06.2008 14:42
Помогите разобраться, ошибка при считывании из ini файла XATAB Помощь студентам 4 13.02.2007 05:57


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840