Witam serdecznie mam za zadanie napisanie programu obliczającego Cos(x) wykorzystując do tego szereg Taylora: [img]http://upload.wikimedia.org/math/a/6/e/a6ee9bd2aac9f3fb8c819ea48fdad176.png[/img].
Wcześniej miałem do wykonania program obliczający pierwiastek kwadratowy, z którym sobie poradziłem:
program pierwiastek1;
{$APPTYPE CONSOLE}
VAR a,yi,yi1 : REAL;
I,N : Integer;
BEGIN
WRITE('a=');
READLN(a);
WRITE('n=');
READLN(n);
yi:=1e6;yi1:=yi;
for i:=1 to N do Begin
yi:=yi1;
yi1:=(yi+a/yi)/2;
writeln('i=',i,'yi1=',yi1);end;
writeln('blad=', abs(sqrt(a)-yi1));
readln;
end.
Program ten prosi nas o podanie liczby,którą mamy spierwiastkować "a" a następnie podajemy ilość przejść "n" im większa liczba przejść tym coraz bardziej dokładny wynik aż przy którymś przejściu dojdzie do wyniku poprawnego, oprócz tego program oblicza błąd.
Na podobnej zasadzie z wykorzystaniem tej pętli mam obliczyć cos(x), jednak nie umiem sobie z tym poradzić, w tym przypadku za liczbe przejść będą odpowiadały kolejne wyrazy tego ciągu, im większą liczbę "n" podamy tym więcej wyrazów z tego ciągu dołączamy, a co za tym idzie wynik będzie dokładniejszy. pomoże ktoś?