Вот что нагородил:
Печатает значения функции и 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;
Кнопка, мемо.
Правда код мне не особо нравится.
Писал его, одновременно говорил по тел, и смотрел краем глаза фильм
Так что уж извиняйте