|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
проблема с построением графиков в tChart
я совсем начинающий "программист", не могу понять в чем дело,
постоянно пишет 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; Последний раз редактировалось M.A.D.M.A.N., 20.05.2013 в 12:30. |
#2
|
||||
|
||||
Цитата:
|
#3
|
|||
|
|||
Код:
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; Последний раз редактировалось M.A.D.M.A.N., 20.05.2013 в 12:31. |
#4
|
||||
|
||||
Цитата:
|
#5
|
||||
|
||||
Топик стартеру последнее предупреждение, используй тег CODE для оформления кода, или в бан за игнорирование правил.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#6
|
||||
|
||||
Да к тому же вызов AddXY должен выглядеть примерно так
Код:
Series1.AddXY(X, Y, '', clRed); Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
спасибо! графики работают, все круто!
теперь появляется вот такое сообщение и выделяется 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. Последний раз редактировалось funky_haska, 20.05.2013 в 12:39. |
#8
|
||||
|
||||
Цитата:
|
#9
|
||||
|
||||
Цитата:
|
#10
|
||||
|
||||
Оффтоп: В курсах, но так более правильно.
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#11
|
|||
|
|||
Цитата:
сейчас вообще по-деревянному написала, все равно не работает Код:
function f2(x,y:real):real; begin f2:=x*x+y*y-1; end; |
#12
|
||||
|
||||
Цитата:
Код:
f2:= (x*x)+(y*y)-1; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#13
|
||||
|
||||
Цитата:
|