Максимальное значение функции

[Орлов Никита]

Добрый вечер. Прошу Вашей помощи.
Мне необходимо написать функцию или процедуру в делфи по нахождению максимального значения функции. В паскале мне удалось найти код на Вашем сайте. Но как бы я не пытался перевести его в делфи ничего не удавалось. Сложность состоит в том, что я имею некоторую функцию и ее производную и интервал от a до b.
Производная равна: 3-exp(x)
Интервал: от 0 до 1
Ввод интервала происходит через поля Edit.
Я пытался написать функцию, но сложность в том, что в шапке я должен указать тип, а это проблема так как функция не подходит под тип real или integer или еще какой-либо, например:
Function maxfun(x:real):real..
Пытался через процедуру..тоже не выходит..
Если можете помочь, то я Вас очень прошу помочь..
Вот код в паскале:

program maximum;
uses crt;
var x,max:real;
y:array[1..11] of real;
i,j:integer;
begin
clrscr;
x:=1;
i:=1;
while x<=3.2 do
begin
y[i]:= x-sqr(cos(x))+3*sin(sqr(x))/ln(sqr(x)+1);
writeln (x:4:2,' ',y[i]:4:2);
x:=x+0.2;
i:=i+1;
end;
max:=y[1];
for j:=1 to i do
if y[j]> max then max:=y[j];
writeln('maximum y = ',max:4:2);
readln;
end.

[Человек_Борща]

как-то так будет на делфи в консолях..

program maximum;
{$APPTYPE CONSOLE}

interface

uses SysUtils,Windows,Classes;

var x,max:real;
y:array[1..11] of real;
i,j:integer;

begin
x:=1;
i:=1;
while x<=3.2 do
begin
y[i]:= x-sqr(cos(x))+3*sin(sqr(x))/ln(sqr(x)+1);
writeln (x:4:2,' ',y[i]:4:2);
x:=x+0.2;
i:=i+1;
end;
max:=y[1];
for j:=1 to i do
if y[j]> max then max:=y[j];
writeln('maximum y = ',max:4:2);
readln;
end;

end.

Писал прямо здесь по памяти...

[s-andriano]

Сообщение от Орлов Никита

Я пытался написать функцию, но сложность в том, что в шапке я должен указать тип, а это проблема так как функция не подходит под тип real или integer или еще какой-либо, например:
Function maxfun(x:real):real..
Пытался через процедуру..тоже не выходит..

А почему Вы решили, что real не подходит?

[Орлов Никита]

Сообщение от s-andriano

А почему Вы решили, что real не подходит?

Чтобы не быть многословным. В программе я прописываю следующее

...
Function f(x:real):real;
Begin
f:=3*x-exp(x);
end;

Function df(x:real):real;
Begin
df:=3-exp(x);
end;

Процедуры для функции и ее производной соответственно. Именно поэтому у меня не получается взять тип real

[s-andriano]

Сообщение от Орлов Никита

Именно поэтому у меня не получается взять тип real

Почему "поэтому" не получается?

[Орлов Никита]

Сообщение от s-andriano

Почему "поэтому" не получается?

Ну а как функцию озаглавить? Разве можно, скажем, написать:

Function MaxElemFun(f:real):real

А дальше в программе сделать обращение к этой функции, функция, содержащая производную именуется "df":

...xm:=xm-(3*x-exp(x))/MaxElemFun(df)

Можно так сделать?
У меня почему-то не получалось, хотя вполне вероятно, я в другом ошибался, а это верно было.....

[Аватар]

Передать функцию как параметр к другой функции?

type TMyFunction = function (Value: integer): integer;

function f(Value: integer): integer;
begin
  Result:=Value*Value;
end;

function pp(ff: TMyFunction): integer;
var i: integer;
begin
  Result:=0;
  for i:=1 to 5 do Result:=Result+ff(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=IntToStr(pp(f));
end;

[Орлов Никита]

Сообщение от Аватар

Передать функцию как параметр к другой функции?

type TMyFunction = function (Value: integer): integer;

function f(Value: integer): integer;
begin
  Result:=Value*Value;
end;

function pp(ff: TMyFunction): integer;
var i: integer;
begin
  Result:=0;
  for i:=1 to 5 do Result:=Result+ff(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=IntToStr(pp(f));
end;

Обалдеть..спасибо огромное..а то я уже голову сломал как это сделать..