 Отсортировать предложенный файл. Сортировка Вставкой., На вход программы поступает файл, input.txt, после всех преобразований |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Александр Капитонов |
 16.10.2006 11:44
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Александр Репутация:  0   |
Отсортировать предложенный файл. Сортировка Вставкой. На вход программы поступает файл, input.txt, после всех преобразований результат помещается в файл, output.txt. Файл может быть любым. Помогите очень нужно до завтра.......
|
   |
 
|
| volvo |
16.10.2006 11:51
Сообщение
#2
|
|
Гость |
FAQ -> Методы сортировок (сортировка простой вставкой).
Читай данные из файла в массив, сортируй, и выводи в другой файл... Про НЕвозможность использования доп. массива в задании не сказано ни слова. |
|
|
|
| Александр Капитонов |
16.10.2006 12:00
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Александр Репутация: 0 |
Цитата(volvo @ 16.10.2006 14:51)  FAQ -> Методы сортировок (сортировка простой вставкой). Читай данные из файла в массив, сортируй, и выводи в другой файл... Про НЕвозможность использования доп. массива в задании не сказано ни слова. Type <--- Вот здесь ошибку выдает arrType = Array[1 .. n] Of Integer; Procedure Insert(Var ar: arrType; n: Integer); Var i, j, T: Integer; Begin For i := 1 To n do Begin T := ar[i]; j := Pred(i); While (T < ar[j]) and (j > 0) Do Begin ar[Succ(j)] := ar[j]; Dec(j); End; ar[Succ(j)] := T; End; End; |
|
|
|
| volvo |
16.10.2006 12:02
Сообщение
#4
|
|
Гость |
Там НЕЧЕМУ выдавать ошибку. Значит, что-то ДО этого фрагмента изменял... Или меняй компилятор. Компиляторов, которые ПЕРВЫЙ же Type считают ошибкой я еще не видел...
|
|
|
|
| Александр Капитонов |
16.10.2006 12:05
Сообщение
#5
|
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Александр Репутация: 0 |
Цитата(volvo @ 16.10.2006 15:02) Там НЕЧЕМУ выдавать ошибку. Значит, что-то ДО этого фрагмента изменял... Или меняй компилятор. Компиляторов, которые ПЕРВЫЙ же Type считают ошибкой я еще не видел... Напишите пожалуйста полностью программу.... Времени вообще нет... Я в Паскале новичок... Не успеваю...  |
|
|
|
| volvo |
16.10.2006 12:10
Сообщение
#6
|
|
Гость |
Программа уже написана. А ты ее даже не можешь скомпилировать... Пользуйся поиском, и найдешь несколько программ сортировки, работающих и с файлами тоже.
Цитата Времени вообще нет... А вот это никого не интересует... ЭТО - твои проблемы. ЗА ТЕБЯ делать просто так никто ничего не будет... |
|
|
|
| Александр Капитонов |
16.10.2006 12:12
Сообщение
#7
|
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Александр Репутация: 0 |
Цитата(volvo @ 16.10.2006 15:10) Программа уже написана. А ты ее даже не можешь скомпилировать... Пользуйся поиском, и найдешь несколько программ сортировки, работающих и с файлами тоже. А вот это никого не интересует... ЭТО - твои проблемы. ЗА ТЕБЯ делать просто так никто ничего не будет... Спасибо...  |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 2:19 |