Я что то забыл?Функции не хватает параметров...

[Студло]

Дана функция:

Function F(x,xc,b,c:Real): Real;
begin
 F :=(xc-b)/(x-c);
end;

Вызываю к примеру:

F(a,acc,e,c);

Что пишет Not enough actual parameters.Скажите идиоту что нитак?

[Irino4ka-LOL]

что такое acc и e ??

[Студло]

Это обычные переменные...называются так

[Irino4ka-LOL]

я точно не помню, но при вызове функции па паскале, кажется можно использовать только её формальные параметры
и поробуй z:=F(....); предварительно описав z

[Carbon]

В общем, кидай сюда весь код.

[Serge_Bliznykov]

на первый взгляд всё правильно.
только мне кажется, что банально надо результат куда-то деть.. ведь это же ФУНКЦИЯ:
xxx := F(a,acc,e,c);

если не поможет - давайте кусок программы целиком. чтобы можно было проверить у себя.

[Студло]

Ойой надо сначала ваши способы попробувать спасибо за ответы секундочку...

код большой....но рискну скинуть....честно скажу у меня очень плохо с функциями

procedure TForm1.btngoClick(Sender: TObject);
var Ac,i,q:integer;
n,V,Step,A,acc,B,C,E,dx,dy,x,y,xx,yy,xc:real;
begin
try
if (strtofloat(edtx1.Text)<>strtofloat(edtc.Text)) and (strtofloat(edtx2.Text)<>strtofloat(edtc.Text)) then
begin
p:=1;
h:=3;
sm1:=0;
sm2:=0;
scrollbar1.Max:=abs(p*2);
scrollbar2.Max:=abs(p*2);
scrollbar1.Position:=round((scrollbar1.Max)/2);
scrollbar2.Position:=round((scrollbar2.Max)/2);
btnp.Enabled:=true;
btnm.Enabled:=true;
imgr.Canvas.Rectangle(0,0,300,220);
imgr.canvas.MoveTo(0,110);
imgr.Canvas.LineTo(300,110);
imgr.canvas.MoveTo(150,0);
imgr.Canvas.LineTo(150,220);
{очистка экрана}
scrollbar1.Hide;
scrollbar2.Hide;
Step:=0.01;
Ac:=strtoint(edtac.Text);
A:=strtofloat(edtx1.Text);
B:=strtofloat(edtx2.Text);
e:=strtofloat(edte.Text);
c:=strtofloat(edtc.Text);
imgr.canvas.MoveTo(0,110);
imgr.Canvas.LineTo(300,110);
imgr.canvas.MoveTo(150,0);
imgr.Canvas.LineTo(150,220);
   {Определяем маесимальный интервал по Х}
     If (Abs(A) > Abs(B)) Then XX := Abs(A) Else XX := Abs(B);
     {Ищем экстремум функции в интервале от A до B}
Acc:=a;
for i:=2 to ac do
Acc:=acc*a;
     YY := Abs(F(a,acc,e,c));
     x := A;
     repeat
       x := x + Step;
       Xc:=x;
       for i:=2 to ac do
       xc:=xc*x;
       if YY < Abs(F(x,xc,e,c)) then YY := Abs(F(x,xc,e,c));
     until x>c-0.1;
     x:=c+0.1;
     xc:=x;
     repeat
       x := x + Step;
       Xc:=x;
       for i:=2 to ac do
       xc:=xc*x;
       if YY < Abs(F(x,xc,e,c)) then YY := Abs(F(x,xc,e,c));
     until x>b;
     dX := 150 / XX;
     dY := 110 / YY;
     x := A;
     Xc:=x;
     imgr.canvas.MoveTo(150,110);
     if (strtoint(edtx1.text)<0) then
     Repeat
       Xc:=x;
       for i:=2 to ac do
       xc:=xc*x;
       if x=-1.0 then
label1.Caption:=floattostr(e);
       y := F(x,xc,e,c);
       if x=-1.0 then
label2.Caption:=floattostr(y);
      imgr.Canvas.Pixels[150 + Round(dX * x), 110 - Round(dY * y)]:=1;
       x := x + Step;
     Until x>c-0.1;
     if (strtoint(edtx1.text)<0) then
     x:=x+0.2;
     Xc:=x;
for i:=2 to ac do
       xc:=xc*x;
       y := F(x,xc,e,c);
imgr.canvas.MoveTo(150+round(dx * x), 110 - round(dy * y));
          Repeat
       Xc:=x;
       for i:=2 to ac do
       xc:=xc*x;
       y := F(x,xc,e,c);
      imgr.Canvas.Pixels[150 + Round(dX * x), 110 - Round(dY * y)]:=1;
       x := x + Step;
     Until x>b;
{горизонтальные кооорды}
  n:=0;
  q:=150;
A:=strtofloat(edtx1.Text);
B:=strtofloat(edtx2.Text);
n:=0;
  q:=150;
  if p>0 then
  V:=(((abs(a)+abs(b))/p)/5);
{  V:=abs((xx/p)/10);}
  if p<0 then
  V:=(((abs(a)+abs(b))*p)/5);
{  V:=(xx/p)/10;}
  repeat
  n:=n-abs(v);
q:=q-30; Imgr.Canvas.MoveTo(q,107);Imgr.Canvas.LineTo(q,113);
imgr.canvas.TextOut(q,113,floattostrf(n,ffgeneral,3,1));
  until q<=0;
    q:=150;
    n:=0;
A:=strtofloat(edtx1.Text);
B:=strtofloat(edtx2.Text);
n:=0;
  q:=150;
  if p>0 then
  V:=(((abs(a)+abs(b))/p)/5);
  if p<0 then
  V:=(((abs(a)+abs(b))*p)/5);
  repeat
  n:=n+abs(v);
q:=q+30; Imgr.Canvas.MoveTo(q,107);Imgr.Canvas.LineTo(q,113);
imgr.canvas.TextOut(q,113,floattostrf(n,ffgeneral,3,1));
  until q>=300;
  {горизонтальные кооорды}
     {вертикальные коорды}
n:=0;
  q:=110;
  if p>0 then
  V:=((Abs(F(a,acc,e,c))+Abs(F(b,acc,e,c)))/p)/4;
  if p<0 then
  V:=((Abs(F(a,acc,e,c))+Abs(F(b,acc,e,c)))*p)/4;
 repeat
  n:=n+abs(v);
q:=q-30; Imgr.Canvas.MoveTo(147,q);Imgr.Canvas.LineTo(153,q);
imgr.canvas.TextOut(153,q,floattostrf(n,ffgeneral,3,1));
  until q<=0;
n:=0;
  q:=110;
  if p>0 then
  V:=((Abs(F(a,acc,e,c))+Abs(F(b,acc,e,c)))/p)/4;
  if p<0 then
  V:=((Abs(F(a,acc,e,c))+Abs(F(b,acc,e,c)))*p)/4;
 repeat
  n:=n-abs(v);
q:=q+30; Imgr.Canvas.MoveTo(147,q);Imgr.Canvas.LineTo(153,q);
imgr.canvas.TextOut(153,q,floattostrf(n,ffgeneral,3,1));
  until q>=220;
  {вертикальные коорды}
end
else
MessageDlg('X-ы не должны равнятся значению C',mtError,[MbCancel],0);
except
On EconvertError do
begin
MessageDlg('Нужно вводить целые числа',mtError,[MbCancel],0);
end;
end;
end;

рисует график в image size 300x220...не судите строга...переманная p в коде мне нужна для увеличения и уменьшения графика...я её сюда ничаяно засунул наверное...

[DeKot]

Вот код простой проги с функцией. На форме две кнопки "Вызвать функцию" (Button1) и "Вывести результат функции" (Button2).

var
  Form1: TForm1;
  a1,b1,c1,d1: real;

implementation

{$R *.dfm}

function _math(a,b,c,d: real): real;
begin
  Result:= (a + b) * c / d;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a1:= 10; b1:= 7;
  c1:= 3; d1:= 11;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  _math(a1,b1,c1,d1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Label1.Caption:='Результат :   ' +  FloatToStr(_math(a1,b1,c1,d1));
end;

end.

Нормально компиллируется (D7). При выполнении программы нажимаем Button1 и никаких сообщений об ошибках нет. Правда и видимых действий также не видно. Прога функу вызвала, просчитала, но куда девается результат - неизвестно (мне во всяком случае).
При нажатии Button2 - видимый результат вычисления в Label.
Чтоб явно убедиться, что функа выполняется для случая (TForm1.Button1Click(Sender: TObject), создайте функцию с каким либо выводом на форму ( не Result). Ну, например, до вычисления по формуле выводите на форму через TextOut те же переменные a1,b1 и т.д.

PS: не поленился, проверил дополнительно:

function _math(a,b,c,d: real): real;
begin
  Form1.Canvas.TextOut(50,300,FloatToStr(a1) + '   ' + FloatToStr(d1));
  Result:= (a + b) * c / d;
end;

Нормально на форму выводятся значения a1 и d1 при запуске procedure TForm1.Button1Click(Sender: TObject);
Может Вы что либо с объявлением переменных a, acc, e, c нахомутали?

[Carbon]

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

только мне кажется, что банально надо результат куда-то деть.. ведь это же ФУНКЦИЯ:
xxx := F(a,acc,e,c);

Как мне говорит фпц, результат не обязательно куда-то девать.

Так, на какую строку ругается компилятор?

[Студло]

Самая страшная проблема в том что у меня тоже ошибки не выводит...я не мог настроить правильный вывод координат на экран, решил проверить правильно ли у меня считает функция...вообщем при проверке в самой функции (в Watch'е я попросил вывести F) он выдает не хватает параметров. + имеются погрешности при просчете