Программа по обработке TXT файла.

[s-andriano]

Учитесь формулировать свои мысли. Очень полезное умение.

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

const NumBackets = 2048; // максимальное количество корзин
type
  tBacket = record
    summ : extended; // здесь накапливаем сумму значений функции
    numb : longint; // а здесь - количество значений функции в корзине
  end;
var
  t : text;
  i,n : longint;
  a : array[0..NumBackets-1]of tBacket;
  x,y : extended;
begin
  fillchar(a, sizeof(a), 0);
  assign(t, 'До.txt');
  reset(t);
  while not eof(t) do begin
    readln(t, x, y);
    if (x >= 0.0) and (x < (NumBackets / 2)) then begin
      n := trunc(x*2.0);
      a[n].summ := a[n].summ + y;
      inc(a[n].numb);
    end else begin
      close(t);
      writeln('It isn''t enough baskets');
      halt(1);
    end;
  end;
  close(t);
  assign(t, 'После.txt');
  rewrite(t);
  for i := 0 to NumBackets-1 do
    if a[i].numb > 0 then
      if odd(i) then
        writeln(t, i/2:1:1, #9, a[i].summ/a[i].numb:1:2)
      else
        writeln(t, i/2:1:0, #9, a[i].summ/a[i].numb:1:2);
  close(t);
end.

[sergio1984]

Спасибо s-andriano ! Благодарен вам !)

Правда, это существенно не совпадает с приведенным Вами файлом.
Запустил код, ничего странного на первый взгляд,работает всё как надо. Если вы имеете ввиду не совпадают сотые доли ? это ничего страшного я с округлением поиграюсь еще...

Есть вопрос, имеется ли возможность:

-изменять шаг обработки? не постоянно через 0,5 , а через 1 или 2, я бы включил edit чтобы вручную вбивать значения..

-включения в обработку дополнительного, 3 столбика ,у которого обработка будет такая же как и у 2-го... ?

Еще раз спасибо...