Прога в пределах каждых 5 компонентов в файле осущ. сортировку! Опции

[Myasnik]

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

Вообщем вот так получилось сделать, первую 5 сортирует, а остальные нехочет

uses crt;
type f1=file of integer;

var
f:f1;
j,a,b,i:integer;
name:string;

begin
clrscr;
Writeln('Vvedite imya faila:');
readln(name);
assign(f,name);
Rewrite(f);
Writeln('Zapolnite file');
For i:=1 to 10 do
  begin
  Readln(a);
  Write(f,a);
end;
Seek(f,0);

For i:=4 downto 1 do
For j:=0 to i-1 do
begin
seek(f,j);
read(f,a,b);
if a>b then
begin
seek(f,j);
write(f,b,a);
end;
end;
close(f);
reset(f);
write('Otsortirovanbi pervbie 5 chisel :');
for i:=1 to 5 do
begin
read(f,a);
write(a:4);
end;
seek(f,5);

For i:=4 downto 1 do
For j:=5 to i-1 do
begin
seek(f,j);
read(f,a,b);
if a>b then
begin
seek(f,j);
write(f,b,a);
end;
end;
close(f);
reset(f);
writeln;
write('Otsortirovanbi vtorbie 5 chisel :');
for i:=6 to 10 do
begin
read(f,a);
write(a:4);
end;
close(f);
readkey;
end.

P.s. Спасите, плиззз, завтра сдавать задачу! (p.s. задачу дали сегодня ибо учусь по-субботам)

[volvo]

Сам пятеркой ограничил, и еще спрашиваешь?

А почему процедурами сортировки из FAQ не пользуешься? Они бы тут тоже подошли...

P.S.

Результат записывает в другой фаил.

А вот с этого места - поподробнее... Где это у тебя указано, что в "другой" файл?

Кроме этого - после того, как ты занес в файл начальные значения, крайне желательно файл переоткрыть для чтения, иначе не все значения могут в этот файл попасть...

[Myasnik]

Сам пятеркой ограничил, и еще спрашиваешь?

А почему процедурами сортировки из FAQ не пользуешься? Они бы тут тоже подошли...

P.S.
А вот с этого места - поподробнее... Где это у тебя указано, что в "другой" файл?

Кроме этого - после того, как ты занес в файл начальные значения, крайне желательно файл переоткрыть для чтения, иначе не все значения могут в этот файл попасть...

ещё не создал второй фаил... я сначала по пунктам задачу делаю!

p.s. Вольво, плизз, напишу всё задачу! плизз, умоляю! прям ужасно надо, могу её сделать в принцепе, но реал прям горит и некогда... других уроков дофига ((

[Myasnik]

Народ, спасите, позарез нужна рабочая задача...

"Не пытайся объять необъятное" (С) ... Ты знал, на что шел...

Сообщение отредактировано: volvo - 26.02.2006 10:53