[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

[Konrad]

Тебе сделали за деньги эту прогу?

Просто пример того, как с задачи "2+2=?" сгородить сотни строк кода.

PHP код:

for i := 0 to In_N - 1 do
     In_Data[i] := Cos(i*In_N)*Exp(-i*0.44)+1; 


Какая-то странная функция.
сos(i*X)*e^(-i*0.44)+1
где х одновременном есть размером массива?

Чесно скажу, сколько в свое время перерешал подобных задач, никогда такого не видел.
При том что в cos значение i*x в радианах....

[radiokarazinec@mail.ru]

не не заденьги, нам препод дал пример программы, я просто с неё взял кусок, так а как тут с массивом. что мне надо, плиз?

[Konrad]

Сообщение от radiokarazinec@mail.ru

не не заденьги, нам препод дал пример программы, я просто с неё взял кусок, так а как тут с массивом. что мне надо, плиз?

Институт или школа?

[radiokarazinec@mail.ru]

институт, радиофак, по спецкурсу, как бы для герадара

[Konrad]

Сообщение от radiokarazinec@mail.ru

институт, радиофак, по спецкурсу, как бы для герадара

Ясно.
Ок, сейчас чтонить напишу.

Только уточни:
если поличиться массив, например
1,1,3,1,2,5,5,7,9,9;
считать 4-ре макс элемента как 9,9,7,5.
Или 9,7,5,3?

[radiokarazinec@mail.ru]

нет чтобы как они забиты в массиве 5,7,9,9

[Konrad]

Вот что нагородил:

Печатает значения функции и 4ре макс элемента

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
var
In_Data:array of real;
In_N,i,j:integer;
max:array[1..4] of real;
maxn:array[1..4] of integer;
begin
  In_N:=35;
  SetLength(In_Data,In_N);
for i := 0 to In_N - 1 do
begin
  In_Data[i]:= Cos(i*In_N)*Exp(-i*0.44)+1;
  memo1.lines.add('f('+inttostr(i)+')= '+floattostr(In_Data[i]));
end;

memo1.lines.add('=========================');
for i:=1 to 4 do
maxn[i]:=0;
max[1]:=In_Data[1];
for i := 0 to In_N - 1 do
 begin
 if (max[1]<In_Data[i]) then
 begin
  max[1]:=In_Data[i];
  maxn[1]:=i;
 end;
 end;
 memo1.lines.add('max #1 = '+floattostr(max[1]));

for j:=2 to 4 do
begin
 max[j]:=0;
for i := 0 to In_N - 1 do
 begin
 if (max[j]<In_Data[i])and(In_Data[i]<=max[j-1])and(maxn[j-1]<>i) then
 begin
  max[j]:=In_Data[i];
  maxn[j]:=i;
 end;
 end;
 memo1.lines.add('max #'+inttostr(j)+' = '+floattostr(max[j]));
end;

end; 


Кнопка, мемо.

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

[com+]

Уж извольте, на быструю руку набросал, можете попробывать

Код:

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

procedure Sort( var AResult:array of Double); var   j: Integer;   tmp : Double; begin   for j :=Low(AResult) to High(AResult) - 1 do     if AResult[j] > AResult[j+1] Then     begin       tmp := AResult[j];       AResult[j] := AResult[j+1];       AResult[j+1] := tmp;     end; end;   procedure Find(const AArray: array of Double;  AFileName:String); var   Result: array [0..2] of Double;   ind :Integer;   f: Textfile; begin   Result[0] := 0; Result[1] := 0; Result[2] := 0;   for ind:= Low(AArray) to High(AArray) do   begin     if AArray[ind] > Result[0] Then     begin       Result[0] := AArray[ind];       Sort(Result);     end;   end;   AssignFile(f, AFileName); {Assigns the Filename}   ReWrite(f); {Create a new file named ek.txt}   for ind:= Low(Result) to High(Result) do       Writeln(f, Format('%8.3f', [Result[ind]]));   Closefile(f); {Closes file F} end;

Админ: Не забываем про теги!!

...
Find(In_Data, 'c:\1.txt'); // Найти и сохранить
...

[Konrad]

Так-с, или меня плохо учили программированию в далекие времена.
Или это сейчас ТАК всех учат)))

Ну зачем в цикле тебе еще сортировку массива каждый раз делать?
Чтобы программа работала быстрее?

[radiokarazinec@mail.ru]

скажи пожалуйста а куда мне это всё вставлять, я просто вставляю, а оно ничего не изменилось? помоги плиз

[Konrad]

Сообщение от radiokarazinec@mail.ru

скажи пожалуйста а куда мне это всё вставлять, я просто вставляю, а оно ничего не изменилось? помоги плиз

Ну правильно, я же вывел все в мемо.
Тебе ж нужно в файл.
Просто допиши сохранение массива

PHP код:

max[i] 


в файл.

[radiokarazinec@mail.ru]

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

[Konrad]

Вот код, который у тебя записывает данные в файл

PHP код:

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'); 


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

Вобщем сюда допиши еще сохранение массива, того о котором я писал.

Тоесть в мах[1,2,3,4] найдены макс числа, вот их и сохраняешь.

Не пойму что вызвало затруднения?

[radiokarazinec@mail.ru]

а что за циклы от 1 до 4 и от 2 до 4?