[Sergio1985]

Здравствуйте уважаемые программисты!
Вновь обращаюсь к вам с вопросом.
У меня поставлена следующая задача:
Нужно обработать текстовой файл, состоящий из 2-х столбцов чисел. Первый столбик аргумент, второй функция. Эти значения нужно раскидать по корзинам, в зависимости от значения аргумента, в первую попадают только те значения для которых значение аргумента лежит в условии 0,0<=x<0.5, во вторую 0.5<=x<1.0 в третью 1.0<=x<1.5 и так далее с шагом 0,5.

Строки аргумента не упорядочены по значениям. В каждой корзине нужно найти среднее значение функции. После этого софрмировать выходной файл, содержащие средние вычисленные значения:
В каждой строке файла должно быть два числа:
-первое (1 знак после запятой) - начало интверала аргумента (0,5;1,0;1,5;2,0)
- второе -вычисленное среднее значение функции.
Интервалы должны выводиться в порядке возрастания.

Но сейчас появилась необходимость, дополнить некоторые функции к этой программе ( а я не знаю как ):

- возможность сделать шаг не только через 0,5 , а через 1 или 2, чтобы шаг можно было вбивать вручную в edit`e...
т.е. чтобы внутри программы задавалось условие в зависимости от указанного шага
1.0<=x<2.0, 2<=x<3, и так далее шаг 1;
2.0<=x<4.0, 4<=x<6, и так далее шаг 2.

- возможность для обработки еще двух дополнительных столбиков (третьего и четвёртого), которые расчитываются по таким же правилам как и 2-ой, т.е. средние значения...


Если открыть файл с третьим и четвёртым столбиком, то подсчёт будет не верный... ПОэтому я прикрепил для образца файлы, (Образец (2 столбика)), и файлы где 4 столбика.

Прошу помочь,что в коде исправить, спасибо!

У меня есть код (программу прикреплю):

Она расчитывает всё как положено. Шаг 0,5 первый столбик, Средние значения во втором.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ComCtrls;   type   TForm1 = class(TForm)     Button2: TButton;     OpenDialog1: TOpenDialog;     procedure Button2Click(Sender: TObject);         private     { Private declarations }   public     { Public declarations }   end;       var   Form1: TForm1;         implementation   {$R *.dfm}         procedure TForm1.Button2Click(Sender: TObject); const NumBackets=2048; // максимально количество type   tBacket=record   summ:extended; //накопление значений функций   numb: longint; //количество значений в корзине   end;   var   t:textfile;   i,n:longint;   a:array[0 .. NumBackets-1] of tBacket;   x,y:extended;   F,Str:string; begin   if OpenDialog1.execute then   begin     fillchar(a,sizeof(a),0);     F:=OpenDialog1.FileName;     assignfile (t, F);     Delete(Str,0,32);     reset (t);     readln(t,F);     end;     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         closefile(t);         writeln('It isn`t enough backets');         halt(1);       end;     end;   closefile(t);   F:=FormatDateTime(' ddddd_hh.nn',Now)+'.txt';   showmessage('complete!');   assignfile(t,F);   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);       closefile(t);       end; end.