 Файлы, Создать файл,и переписать компоненты в другой |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Гость |
 25.03.2007 14:37
Сообщение
#1
|
|
Гость  |
Читал раздел в FAQ и поиск результатов тоже не дал. Помогите с решением задачи!
Дан файл f компонентами которого являются целые числа.Число компонент делится на 4. Никакая из компонент не равна нулю. Файл f содержит равное кол-во отрицательных и положительных компонент.Переписать компоненты этого файла в файл k так, чтобы в файле k числа шли в след. порядке: 2 отрицательных,2 положительных,2 отриц.,2 положит. и т.д. Подскажите как это реализовать,пожалуйста. Заренее благодарен. |
 
|
|
  |
Ответов
| КМА |
27.03.2007 23:38
Сообщение
#2
|
 Пионер  Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация:  3  |
А идея остортировать файл не пойдет??? При этом сортировка будет иметь следующий вид.
Первые n/2 элементы будут отрицательными числами, а вторые -- положительными. Тогда вставлять сразу два из первой половины, и два из второй. Вся суть состоит только в грамотной сортировке (т. е. на необязательно по возрастанию или убыванию, нам достаточно все отрицательные перенести в правую часть массива). Т. е. мы проходим по первой части и ищем положительные элементы, если мы их нашли, то переходим во вторую часть и ищем отрицательный, затем меняем их местами. |
   |
|
| Гость |
27.03.2007 23:49
Сообщение
#3
|
|
Гость |
Сейчас что-то еще попробую.
Может получится отсортировать или еще как-то...  |
|
|
|
Сообщений в этой теме
Гость Файлы 25.03.2007 14:37
мисс_граффити Можно пойти таким путем: переносим все отрицательн... 25.03.2007 15:33 volvo Можно сделать за один проход... Вот тут было нечто... 25.03.2007 16:07 мисс_граффити там постоянно приходится возвращаться:
seek(f, pos... 25.03.2007 16:23
Гость Хочу задать вопрос...вы посчитаете его думаю глупы... 25.03.2007 23:29 volvo В принципе, это то, что требовалось по условию:
..... 25.03.2007 23:33 Гость А что должно быть в самом файле f?
Вот как у меня ... 26.03.2007 16:14 мисс_граффити ты их заносишь в массив, а надо - в файл.
так файл... 26.03.2007 16:26 Гость нужно просто без массива? так?
var f:file of integ... 26.03.2007 16:44 Гость Помогите плиз!!!
в самом файле (данном... 27.03.2007 11:36 мисс_граффити можешь написать отдельную программку, ею создавать... 27.03.2007 14:39 Гость Осталось для меня проблемой чередование по 2 отриц... 27.03.2007 15:20 мисс_граффити :blink: зачем массив?
ты пробовал(а) реализовать п... 27.03.2007 15:25 Гость Я его даже не сохранил...:( так как постоянно пока... 27.03.2007 15:36 Гость что-то совсем не получается ничего.Еще и ошибка те... 27.03.2007 18:45 мисс_граффити сделай нормально форматирование - увидишь ошибку.... 27.03.2007 22:28 Гость одну ошибку я нашел и исправил...
по-прежнему не м... 27.03.2007 23:31 Гость Ничего у меня не получилось с этой программой (вид... 28.03.2007 0:21 КМА должно быть что-то типа этого:
n:=fileSize (f); {... 28.03.2007 0:22 мисс_граффити КМА, а теперь представь затраты по времени на сорт... 28.03.2007 0:27 КМА По поводу перековеркать, в условие задачи этого не... 28.03.2007 0:43 мисс_граффити
Да я и не говорила, что что-то неправильно... Одн... 28.03.2007 0:52 КМА
Да я вообще-то тоже. Поразмыслив немного, я все ... 28.03.2007 1:07 Гость мисс_граффити, не могла бы ты показать как твой ал... 28.03.2007 19:06 Гость Прошу прощения, уже всё сделал. предыдущее сообщен... 28.03.2007 23:26 КМА Можно модернизировать и тому подобное, вообще нако... 28.03.2007 23:52 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.12.2025 19:19 |