Версия для печати темы

Автор: Александр Капитонов 16.10.2006 15:44

Отсортировать предложенный файл. Сортировка Вставкой. На вход программы поступает файл, input.txt, после всех преобразований результат помещается в файл, output.txt. Файл может быть любым. Помогите очень нужно до завтра.......

Автор: volvo 16.10.2006 15:51

http://forum.pascal.net.ru/index.php?showtopic=3065 (сортировка простой вставкой).

Читай данные из файла в массив, сортируй, и выводи в другой файл...
Про НЕвозможность использования доп. массива в задании не сказано ни слова.

Автор: Александр Капитонов 16.10.2006 16:00

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 16:02

Там НЕЧЕМУ выдавать ошибку. Значит, что-то ДО этого фрагмента изменял... Или меняй компилятор. Компиляторов, которые ПЕРВЫЙ же Type считают ошибкой я еще не видел...

Автор: Александр Капитонов 16.10.2006 16:05

Напишите пожалуйста полностью программу.... Времени вообще нет... Я в Паскале новичок... Не успеваю...

Автор: volvo 16.10.2006 16:10

Программа уже написана. А ты ее даже не можешь скомпилировать... Пользуйся поиском, и найдешь несколько программ сортировки, работающих и с файлами тоже.

А вот это никого не интересует... ЭТО - твои проблемы. ЗА ТЕБЯ делать просто так никто ничего не будет...

Автор: Александр Капитонов 16.10.2006 16:12

Спасибо...