Missing operator or semicolon ошибка в алгоритме

[Начинающий_Дэльфер]

Здравствуйте! помогите с Delphi! Подскажите где что не так!? все пересмотрел не могу понять!

 unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm6 = class(TForm)
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses Unit1;

{$R *.dfm}


procedure TForm6.FormCreate(Sender: TObject);
begin
edit1.Text:='1';
edit2.Text:='2';
edit3.Text:='0,00001';
memo1.Clear;

end;

procedure TForm6.Button1Click(Sender: TObject);
      var h,e,f,x0:double;

  begin
x0:=strtofloat(edit1.text);
h:=strtofloat(edit2.text);
e:=strtofloat(edit3.text);

   case radiogroup1.ItemIndex of
    0: f:=sin(x0);
    1: f:=sqr(x0)+2*x0+3;
    2: f:=Cos(x0);
       else f:=0;
   end;

        while abs(h)>e do
  begin
if f(x0)<f(x0+e) then h:=-h;
     while (f(x0)>f(x0+h)) do
x0:=x0+h;
h:=-h/4;
  end;


   form1.memo1.Lines.Add('Fmin=' +floattostrf(f(x0),fffixed,8,3));
   form1.memo1.Lines.Add('Xmin=' +floattostrf(x0,fffixed,8,3));





  end;

end.

красным отметил то, где показывает ошибку!


ПЕРВЫЙ ЮНИТ(чтоб было понятней)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus, CheckLst;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label4: TLabel;
    Label5: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    RadioGroup1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
   

    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}
Function F1(x:double):double;
begin
Result:=sin(x);
end;
Function F2(x:double):double;
begin
Result:=(sqr(x)+2*x+3);
end;
Function F3(x:double):double;
begin
Result:=cos(x);
end;



                    procedure TForm1.Button1Click(Sender: TObject);
       var x0,h,e:double;
  begin
 Memo1.Lines.Add('F='+button1.Caption);
x0:=StrToFloat(edit1.text);
h:=StrToFloat(edit2.text);
e:=StrToFloat(edit3.text);
         while abs(h)>e do
  begin
if f1(x0)<f1(x0+e) then h:=-h;
         while (f1(x0)>f1(x0+h)) do
x0:=x0+h;
h:=-h/4;
  end;
Memo1.Lines.Add('Xmin='+floattostr(x0));
Memo1.Lines.Add('Fmin='+floattostr(f1(x0)));
Memo1.Lines.Add('_____________');
Memo1.Lines.Add('');
  end;

                    procedure TForm1.Button2Click(Sender: TObject);
       var x0,h,e:double;
  begin
 Memo1.Lines.Add('F='+button2.Caption);
x0:=StrToFloat(edit1.text);
h:=StrToFloat(edit2.text);
e:=StrToFloat(edit3.text);
        while abs(h)>e do
  begin
if f2(x0)<f2(x0+e) then h:=-h;
        while (f2(x0)>f2(x0+h)) do
x0:=x0+h;
h:=-h/4;
  end;
Memo1.Lines.Add('');
Memo1.Lines.Add('Xmin='+floattostr(x0));
Memo1.Lines.Add('Fmin='+floattostr(f2(x0)));
Memo1.Lines.Add('_____________');
Memo1.Lines.Add('');
  end;

                    procedure TForm1.Button3Click(Sender: TObject);
        var x0,h,e:double;
  begin
 Memo1.Lines.Add('F='+button3.Caption);
x0:=StrToFloat(edit1.text);
h:=StrToFloat(edit2.text);
e:=StrToFloat(edit3.text);
        while abs(h)>e do
  begin
if f3(x0)<f3(x0+e) then h:=-h;
        while (f3(x0)>f3(x0+h)) do
x0:=x0+h;
h:=-h/4;
  end;
Memo1.Lines.Add('');
Memo1.Lines.Add('Xmin='+floattostr(x0));
Memo1.Lines.Add('Fmin='+floattostr(f3(x0)));
Memo1.Lines.Add('_____________');
Memo1.Lines.Add('');
  end;



end.

[MihalNik]

Вот у Вас функция f (из Unit1?), а локальный параметр зачем с таким же именем? Потом, Вы его используете?

[Начинающий_Дэльфер]

Сообщение от MihalNik

Вот у Вас функция f (из Unit1?), а локальный параметр зачем с таким же именем? Потом, Вы его используете?

f я только ввел в 6 юните, а f(x0) из 1 юнита

а локальный параметр зачем с таким же именем? Потом, Вы его используете?
-вот этого вообще не понял, по подробней плз я новичек! (понимаю что такое локальные и глобальные параметры)



что бы было понятней то в 1 юните я сделал прогу через кнопки, а в 6 хочу задействовать радиогрупп с этой же программой!

[MihalNik]

А я не преподаватель
Гуглите/смотрите в книжке что такое функции и локальные переменные
На форуме тоже есть поиск

[MihalNik]

Причем здесь Unit'ы? Говорю же, Вы перепутали функции и локальные переменные (конкретно f). Это форум, не надо без особой причины писать ЛС. Помогают здесь добровольно и только когда хотят.
Замените параметр объявлением функции - и все.

[Начинающий_Дэльфер]

Сообщение от MihalNik

Причем здесь Unit'ы? Говорю же, Вы перепутали функции и локальные переменные (конкретно f). Это форум, не надо без особой причины писать ЛС. Помогают здесь добровольно и только когда хотят.
Замените параметр объявлением функции - и все.

простите если что не так, сейчас попробую.

[Mad_Cat]

Обьявим функу

Function f(x:double;num:integer):double;
begin
  case num  of
  0:Result:=sin(x);
  1:Result:=x*x+2*x+3;
  2:Result:=cos(x);
  end;
end;

ну а код нажатия кнопачки напишем

procedure TForm1.Button1Click(Sender: TObject);
var x0,h,e:double;
op:integer;
begin
x0:=StrToFloat(edit1.text);
h:=StrToFloat(edit2.text);
e:=StrToFloat(edit3.text);
op:=radiogroup1.ItemIndex;
Memo1.Lines.Add('F='+Radiogroup1.Items[op]);
while abs(h)>e do
begin
if f(x0,op)<f(x0+e,op) then h:=-h;
while (f(x0,op)>f(x0+h,op)) do
x0:=x0+h;
h:=-h/4;
end;
Memo1.Lines.Add('Xmin='+floattostr(x0));
Memo1.Lines.Add('Fmin='+floattostr(f(x0,op)));
end;

ну и добавьте в Formcreate

procedure TForm1.FormCreate(Sender: TObject);
begin
radiogroup1.itemindex:=0;
end;

Enjoy!!!

[Начинающий_Дэльфер]

Сообщение от Mad_Cat

Обьявим функу

Function f(x:double;num:integer):double;
begin
  case num  of
  0:Result:=sin(x);
  1:Result:=x*x+2*x+3;
  2:Result:=cos(x);
  end;
end;

ну а код нажатия кнопачки напишем

procedure TForm1.Button1Click(Sender: TObject);
var x0,h,e:double;
op:integer;
begin
x0:=StrToFloat(edit1.text);
h:=StrToFloat(edit2.text);
e:=StrToFloat(edit3.text);
op:=radiogroup1.ItemIndex;
Memo1.Lines.Add('F='+Radiogroup1.Items[op]);
while abs(h)>e do
begin
if f(x0,op)<f(x0+e,op) then h:=-h;
while (f(x0,op)>f(x0+h,op)) do
x0:=x0+h;
h:=-h/4;
end;
Memo1.Lines.Add('Xmin='+floattostr(x0));
Memo1.Lines.Add('Fmin='+floattostr(f(x0,op)));
end;

ну и добавьте в Formcreate

procedure TForm1.FormCreate(Sender: TObject);
begin
radiogroup1.itemindex:=0;
end;

Enjoy!!!

благодарю очень сильно! теперь разобрался что и как, с меня еще клиенты!)