[funky_haska]

я совсем начинающий "программист", не могу понять в чем дело,
постоянно пишет not enough actual parameters

Код:

procedure TForm1.N1Click(Sender: TObject);   
var i,n:integer; x:real;
begin
Series1.Clear;
x:=-10;
while x<=10 do
begin
Series1.AddXY(x,f1(x));
x:=x+e;
end;
Series2.Clear;
x:=-10;
while x<=10 do
begin
Series2.AddXY(x,f2(x));
x:=x+e;
end;
end;

MAD: Читаем правила!

[poli-smen]

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

я совсем начинающий "программист", не могу понять в чем дело,
постоянно пишет not enough actual parameters

procedure TForm1.N1Click(Sender: TObject);
var i,n:integer; x:real;
begin
Series1.Clear;
x:=-10;
while x<=10 do
begin
Series1.AddXY(x,f1(x));
x:=x+e;
end;
Series2.Clear;
x:=-10;
while x<=10 do
begin
Series2.AddXY(x,f2(x));
x:=x+e;
end;
end;

А функции f1 и f2 как у тебя объявлены?

[funky_haska]

Код:

function f1(x,y:real):real;
begin
f1:=sin(x+y)-1.5*x;
end;

function f2(x,y:real):real;
begin
f2:=power(x, 2)+power(y, 2)-1;
end;

MAD: Последнее предупреждение!

[poli-smen]

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

function f1(x,y:real):real;
begin
f1:=sin(x+y)-1.5*x;
end;

function f2(x,y:real):real;
begin
f2:=power(x, 2)+power(y, 2)-1;
end;

Ну так этим функциям нужно передавать 2 параметра, а ты передаёшь только один - x.

[M.A.D.M.A.N.]

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

[Alegun]

Да к тому же вызов AddXY должен выглядеть примерно так

Код:

Series1.AddXY(X, Y, '', clRed);

[poli-smen]

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

Да к тому же вызов AddXY должен выглядеть примерно так

Код:

Series1.AddXY(X, Y, '', clRed);

Последние два параметра в методе AddXY имеют значения по-умолчанию, поэтому их можно опускать.

[funky_haska]

спасибо! графики работают, все круто!
теперь появляется вот такое сообщение и выделяется f2

project project1.exe raised exception class EOverflow with message "Floating point overflow". Process stopped. Use step or run to continue

я понятия не имею, что это может означать - помогите пожалуйста

вот код программы:

Код:

function f1(x,y:real):real;
begin
f1:=sin(x+y)-1.5*x;
end;

function f2(x,y:real):real;
begin
f2:=power(x, 2)+power(y, 2)-1;
end;

procedure TForm1.N1Click(Sender: TObject);    //графики
var x,y:real;
begin
Series1.Clear;
x:=-5;
while x<=5 do
begin
Series1.AddXY(x,f1(x,y));
x:=x+e;
end;
Series2.Clear;
x:=-5;
while x<=5 do
begin
Series2.AddXY(x,f2(x,y));
x:=x+e;
end;
end;

procedure TForm1.N2Click(Sender: TObject);   //метод Гаусса-Зейделя
var k,x,y,xn,yn:real;
begin
k:=0;
x:=strtofloat(Edit6.Text);
y:=strtofloat(Edit7.Text);
yn:=f1(x,y);
xn:=f2(x,y);
repeat
k:=k+1;
x:=xn;
y:=yn;
yn:=f1(xn,y);
xn:=f2(x,y);
until (abs(x-xn)<e) and (abs(y-yn)<e);
Edit4.Text:=floattostr(xn);
Edit5.Text:=floattostr(yn);
Edit8.Text:=floattostr(k);
end;


procedure TForm1.N3Click(Sender: TObject); //Метод Якоби
var x,y,xn,yn:real; k:integer;
begin
x:=strtofloat(Edit6.Text);
y:=strtofloat(Edit7.Text);
xn:=f2(x,y);
yn:=f1(x,y);
repeat
k:=k+1;
x:=xn;
y:=yn;
yn:=f1(x,y);
xn:=f2(x,y);
until (abs(x-xn)<e) and (abs(y-yn)<e);
Edit2.Text:=floattostr(xn);
Edit3.Text:=floattostr(yn);
Edit1.Text:=floattostr(k);
end;


procedure TForm1.N4Click(Sender: TObject);
begin
Form1.Close;
end;

end.

[poli-smen]

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

спасибо! графики работают, все круто!
теперь появляется вот такое сообщение и выделяется f2

project project1.exe raised exception class EOverflow with message "Floating point overflow". Process stopped. Use step or run to continue

Это наверное потому, что стандартная функция power не умеет возводить в степень отрицательные числа.