Hanniball
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
RoMiGoR
Цитата: Составьте программу на Паскале для сортировки записей типизированного файла.
Это все условие задачи. |
Довольно-таки расплывчатая формулировка.
Ну что, начнем
Объявление файла:
Код: var
f:file of integer;{в данном случае файл с целыми числами} |
заполняем его
Код: procedure FillFile(n:integer,name:string);{n - количество записей,name - имя файла }
begin
assign(f,name);
rewrite(f);
write(f,n);{записываем в начало файла количество записей}
for i:=1 to n do
write(f,random(51));{записываем в файл n случайных чисел от 0 до 50}
close(f);
end; |
считываем значения
Код: procedure ReadFromFile;
begin
assign(f,name);
reset(f);
read(f,n);
for i:=1 to n do
read(f,mas[i]);{заведомо опиши массив побольше, чтобы в него поместилис все записи}
close(f);
end; |
сортировка массива
Код:| полностью на твоей совести ))))) |
запись обратно в файл
Код: procedure FillFileWithArray(n:integer,name:string);
begin
assign(f,name);
rewrite(f);
write(f,n);
for i:=1 to n do
write(f,mas[i]);
close(f);
end; |
обрати внимание на процедуры reset и rewrite, первая просто открывает существующий файл, вторая стирает его, если он есть, а потом создает новый.
Не знаешь как сортировать? Проще всего - метод пузырька. Есть в любом руководстве.
Добавлено:
looozer90
f ntgthm gjghj,eq yfgbcfnm nj ;t cfvjt gj heccrbб bv[jб ;tkf.ob[ gjvjxm ghb,fdbncz Ж-) |
