[radiokarazinec@mail.ru]

Код:

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

procedure TfrmMain.Button1Click(Sender: TObject); var  // число точек в исходных данных и в результатах  In_N : Integer;  // массив с исходными данными  In_Data: array of Double;  // переменная для записи в файл DataFile : TextFile;[/quote]  // переменная цикла  i: Integer;  // линия для графика - если нужна  Line : TLineSeries; begin  // получение числа точек в исходных данных с формы  In_N := 35;  ////////////////////////////////////////// In_N :=StrToInt(edValN.Text);  // получение параметра - пример  ///////////////////Scale := StrToFloat(eScale.Text);  // создаем массив данных  // вначале задаем размер массива  SetLength(In_Data,In_N);  // задаем элементы массива  for i := 0 to In_N - 1 do      In_Data[i] := Cos(i*In_N)*Exp(-i*0.44)+1;    MemoOut.Clear;  // и покажем новые  for I := 0 to In_N - 1 do      // Format() - преобразование числа в строку по указанному      // формату. Подробнее и с примерами в справке Delphi - F1.      MemoOut.Lines.Add(Format('%8.3f',[In_Data[i]]));  // *** добавим график - если нужно  // уберем старый график  ChartMain.SeriesList.Clear;  // создадим новый  Line := TLineSeries.Create(ChartMain);  // присвоим значения Y координат  Line.AddArray(In_Data);  // изменим цвет и толщину линии  Line.LinePen.Color := clBlue;  Line.LinePen.Width := 1;  // и выведем на форму  ChartMain.AddSeries(Line);  // свяжем переменную с файлом DataFile AssignFile(DataFile,'in.txt');  // откроем для записи Rewrite(DataFile);  // запись параметров  Writeln(DataFile);   //стояло еще (,Scale)  // размер массива чисел  Writeln(DataFile,In_N);  // каждое значение пишем в новую строку  for i := 0 to In_N - 1 do  Writeln(DataFile,In_Data[i]); //закрываем файл - сохраняем его  CloseFile(DataFile);  DeleteFile('out.txt');   end;

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