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

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

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


Ответ
 
Опции темы
Старый 18.12.2009, 00: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 18:47
Привет всем!Помогите пожалуйста с сортировкой файла в Delphi, заранее спасибо Taisja Помощь студентам 2 01.06.2008 15:42
Помогите разобраться, ошибка при считывании из ini файла XATAB Помощь студентам 4 13.02.2007 06:57