Работа с числовым файлом. исправишь? код внутри)

[ayPinki]

вот собственно задача
Задан числовой файл . Найти сумму компонент, стоящих между минимальной и максимальной. Заменить этой суммой все элементы из которых она сформирована (элементы между максимумом и минимумом). Файл вывести как до, так и после преобразования.

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

код:

 program ABC;
var
 a,b,i,maxin,minin,max,min,sum,right,left :integer;
 f,f1:file of integer;
begin
 assign(f,'f.dat');
 write('введите первую компоненту файла f (признак конца ввода: "555") ');
 //ввод файла
 rewrite(f);
 readLn(b);
 i:=1; //номер компоненты файла
 while b<>555 do
  begin
   write(f,b);
   inc(i);
   write('введите ',i:2,'-ую компоненту файла f ');
   readLn(b);
  end;
 reset(f); //вывод файла до изменения
 writeLn('файл f до изменения:');
 while not EOF(f) do
  begin
   read(f,b);
   write(b:5);
  end;
 writeLn;
 max:=-32000;
 min:=32000;
 reset(f); // поиск максимума и минимума
 while not EOF(f) do
  begin
   read(f,b);
   if b>max then
    begin
     max:=b;
     maxin:=filePos(f);
    end;
   if b<min then
    begin
     min:=b;
     minin:=filePos(f);
    end;
  end;
 writeln('minin= ',minin,'  maxin= ',maxin);
 sum:=0;
 if maxin>minin then //очередь
  begin
   left:=minin;
   right:=maxin;
  end
 else
  begin
   left:=maxin;
   right:=minin;
  end;
 for i:=left+1 to right-1 do
 begin
  seek(f,i-1);
  read(f,b);
  sum:=sum+b;
 end;
 writeln('Sum= ',sum:5);
 close(f);
 writeLn('файл f после изменения:');
//~~~~~~~~~~~~~~~ вот от сюда изменять
 reset(f);
 assign(f1,'f1.dat');
 rewrite(f1);
 i:=0;
 while not EOF(f) do
  begin
   Inc(i);
   read(f,b);
   if (i<=left) or (i>=right) then
    write(f1,b)
   else
    write(f1,Sum);
  end;
 close(f);
 close(f1);
 reset(f1);
 rewrite(f);
 while not EOF(f1) do
  begin
   read(f1,b);
   write(f,b)
  end;
 close(f);
 close(f1);
 erase(f1);
 reset(f);
//~~~~~~~~~~~~~~~ вот до сюда
 while not EOF(f) do
  begin
   read(f,b);
   write(b:5);
  end;
 readln
end.

[whatever]

Вместо втрого файла берешь массив и с ним работаешь. Мне кажется это изначально было очевидно, зачем со вторым файлом заморачиваться?

[mekkanizer]

//~~~~~~~~~~~~~~~ вот от сюда изменять
reset(f);
assign(f1,'f1.dat');
rewrite(f1);
i:=0;
while not EOF(f) do
begin
Inc(i);
read(f,b);
if (i<=left) or (i>=right) then
write(f1,b)
else
write(f1,Sum);
end;
close(f);
close(f1);
reset(f1);
rewrite(f);
while not EOF(f1) do
begin
read(f1,b);
write(f,b) <<<<<<<<<<<<<<<банальное отстутствие ;
end;
close(f);
close(f1);
erase(f1);
reset(f);
//~~~~~~~~~~~~~~~ вот до сюда

[ayPinki]

я уже пробовал по разному, не работает.
как по вашему это - реализуйте же.
mekkanizer, эмм что?)

[mekkanizer]

ну я может не понял чего но там вроже точки с запятой в конце строки не хватает

[whatever]

Объявляешь m: array of integer;
Потом так:

reset(f);
// assign(f1,'f1.dat');
// rewrite(f1);
 i:=0;
 while not EOF(f) do
  begin
   Inc(i);
Setlength(m,i)
   read(f,b);
   if (i<=left) or (i>=right) then
    m[i-1]:=b;
   else
    m[i-1]:=sum;
  end;
 close(f);
// close(f1);
// reset(f1);
 rewrite(f);
 for I:=0 to high (m) do
Write (f,m[i]);
 close(f);
// erase(f1);

p.s.пишу с мобилы, так что проверяй

p.p.s.mekkanizer, если не знаешь, то лучше запусти и проверь. Перед end символ ";" можно не ставить

[Serge_Bliznykov]

Сообщение от whatever

Объявляешь m: array of integer;

Ну ладно. пойдёт, если у автора вопроса Delphi (FreePascal).

НО Зачем в данной задаче динамические массивы и вообще массивы, когда можно банально ПОВТОРНО открыть файл и прочитать значения из него?!!

я бы предложил такой код для решения данной задачи (основываясь на коде TC ):

program ABC;
var
  b, i, MaxIn, MinIn, max, min,
    sum, left, right: integer;
  f: file of integer;
begin
  assign(f, 'f.dat');
  reset(f); {//вывод файла до изменения}
  writeLn('файл f до изменения:');
  while not EOF(f) do
  begin
    read(f, b);
    write(b: 5);
  end;
  writeLn;
  close(f);

  maxIn := -1;
  minIn := -1;
  reset(f); {// поиск максимума и минимума}
  i := 0;
  while not EOF(f) do
  begin
    read(f, b);
    if MaxIn = -1 then begin
      max := b;
      MaxIn := i;
    end
    else
      if b > max then begin
        max := b;
        MaxIn := i;
      end;

    if MinIn = -1 then begin
      min := b;
      MinIn := i;
    end
    else
      if b < min then begin
        min := b;
        MinIn := i;
      end;

    Inc(i);
  end;

  writeln('min=', min, ' at pos ', MinIn+1, ' max= ', max, ' at pos ', MaxIn+1);

  sum := 0;
  if maxin > minin then {//очередь}
  begin
    left := minin;
    right := maxin;
  end
  else
  begin
    left := maxin;
    right := minin;
  end;

  for i := left + 1 to right - 1 do
  begin
    seek(f, i);
    read(f, b);
    sum := sum + b;
    Write(b: 3);
    if i < (right-1) then Write('+')
  end;
  WriteLn;
  writeln('Sum= ', sum: 5);


  {заменим все элементы между min/max в файле на сумму}
  reset(f);
  for i := left + 1 to right - 1 do
  begin
    seek(f, i);
    write(f, sum);
  end;
  Close(f);


  reset(f);
  writeLn('файл f после изменения:');
  while not EOF(f) do
  begin
    read(f, b);
    write(b: 5);
  end;
  writeLn;
  close(f);

  readln
end.

[TinMan]

Сообщение от ayPinki

но нельзя же сразу открыть на запись и на чтение.
[/CODE]

Это что за новости? Кто сказала, что это нельзя?...

Procedure Reset (var F) Открывает существующий файл для чтения или изменения.

Эта задача прекрасно решается без второго файла. Открой файл reset'ом, найди нужную сумму, а потом используй Seek, чтоб встать в нужное место - и пиши нужное число.

Упс, sorry - Серж уже это сделал! )).
Серж, только reset перед записью - лишний, мне кажется. Все будет прекарсно работать и без него.

[Serge_Bliznykov]

Сообщение от TinMan

Это что за новости? Кто сказала, что это нельзя?...

Эта задача прекрасно решается без второго файла. Открой файл reset'ом, найди нужную сумму, а потом используй Seek, чтоб встать в нужное место - и пиши нужное число.

Ага. всё точно так.
и мой код чуть выше (TinMan не мог его увидеть, когда писал свой пост) прекрасно иллюстрирует это.

[whatever]

Сообщение от Serge_Bliznykov

НО Зачем в данной задаче динамические массивы и вообще массивы, когда можно банально ПОВТОРНО открыть файл и прочитать значения из него?!!

Так то да, не обратил внимания, что файл типизированый.