спасибо.. блин...я даже не знаю как ее вызвать и записать в StringGrid..вот я тупой
Добавлено через 10 мин. вот нашел в интернете вчера код на паскале для разложения косинуса в ряд...только там график не строится..
Program Cosin1; var n: word; Cosa: double; xx, slagaem: double; eps,cos1: double; begin n:=0; cosa:= 1; slagaem:= 1; writeln('Вычислим косинус заданного угла.'); write('Введи угол (в радианах, <= 0.7)'); readln(xx); write('Введи допустимую погрешность (1E-5)--> '); readln(eps); Repeat slagaem := -slagaem*sqr(xx)/((n+1)*(n+2)); Cosa := Cosa + slagaem; inc(n,2); until abs(slagaem) < eps; cos1:= cos(xx); writeln('Cosa = ',cosa,' Cos(x) = ',cos1); writeln('Погрешность факт. = ',abs(cosa - cos1)); readln; end.
помоги пожалуйста перестроить его для арктангенса..может так полегче будет..а то я не знаю..вообще ни в чем не разбираюсь, а сделать как-то нужно, чтоб не выкинули..=(
|