12.05.2008, 19:00 | #1 (permalink) |
Новичок
Регистрация: 12.05.2008
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Дана процедура сортировки файла с записями (qf - file of group, group - запись с 4 полями) Код:
procedure sortirovka(var e : qf); var list,list0,min,h: group; ind : boolean; i,j:integer; begin Reset(e); Repeat ind := true; Seek(e,0); Read(e,list0); While not EOF(e) do begin Read(e,list); writeln(z,') ',list0.cena,' - ',list.cena); z:=z+1; if List.cena < List0.cena then begin Seek(e,filepos(e) - 2); Write(e,list); Write(e,list0); ind := false; end else list0 := list; end; Until ind; close(e); end; З.Ы. Вопрос уже решен :) |
13.05.2008, 13:10 | #2 (permalink) |
Member
Регистрация: 22.01.2008
Сообщений: 553
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
Цитата из книжки.
Поцедура reset открывает существующий файл данных на диске, имя которого перед этим было связано процедурой assign с некоторой файловой переменной, для его чтения или записи в него данных. Совет. Купи книжку по паскалю и не очень то слушай препода, он наверное теоретик. Пробуй сам. |
13.05.2008, 16:01 | #3 (permalink) |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
не давай советов если не знаешь или знаешь не точно
Reset(f) открывает для чтения файл, с которым связана файловая переменная f. После успешного выполнения процедуры Reset файл готов к чтению из него первого элемента. Процедура завершается с сообщением об ошибке, если указанный файл не найден. а ответ вот чем Если f - типизированный файл, то процедурой reset он открывается для чтения и записи одновременно а у автора была именно типизированная |
13.05.2008, 16:12 | #4 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
__________________
Убить всех человеков! |
|
07.12.2009, 14:29 | #5 (permalink) |
Member
Регистрация: 09.08.2008
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
После 10 минут работы монитор выключается
После 10 минут работы монитор выключается, или комп перезагружается( может несколько раз перезагрузится при загрузке винды)и иногда когда такое случается появляется синий экран. помогите ! объясните в чем тут проблема пожалуйста!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
07.12.2009, 15:21 | #6 (permalink) |
Member
Регистрация: 05.02.2009
Сообщений: 9,999
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 5307
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|