[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);

[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 не умеет возводить в степень отрицательные числа.

[poli-smen]

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

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

Код:

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

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

[Alegun]

Оффтоп: В курсах, но так более правильно.

[funky_haska]

Сообщение от poli-smen

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

сейчас вообще по-деревянному написала, все равно не работает

Код:

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

[Alegun]

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

Код:

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

Код:

f2:= (x*x)+(y*y)-1;

[poli-smen]

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

сейчас вообще по-деревянному написала, все равно не работает

Код:

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

Ошибка "Floating point overflow" означает что в процессе вычисления получаются сильно большие числа - обрати внимание на то, что у тебя в обработчике N1Click не задаётся значение переменной y, а значит оно имеет непредсказуемое значение.