Ряд Тейлера на Pascal

[PaRaZuT]

Добрый вечер. Нужна помошь в решении задачи на Pascalе.
Вычислить и вывести на экран в виде таблици значени функции заданой в виде ряда Тейлера на интервале от Х до Х конечной с шагом ОХ и с точностью экспоненты. Таблицу снабдить заоловком и шапкой!


Есть пара аналогичных задач и частично работающая по этому ряду. Я не знаю как точно проверить. Самая загвозка с количеством членов ряда чтобы в задаче они выводились и считались.

[Сергeй]

400 WMR - и забирай.

[PaRaZuT]

Сообщение от Сергeй

400 WMR - и забирай.

Спасибо конечно, но вынужден отклонить ваше предложение.

[Базиля]

576079457 пиши, разберемся

[Stilet]

и частично работающая по этому ряду

Показывай. Иначе готовься купить.

[PaRaZuT]

Program zadanie3;

uses crt;
const
maxitter=500;
 
var
x,epsx,p,s,xk,xd:real;{аргумент, точность,знак перед членом,нижняя степенная часть,начальное значение,смещение}
c,y:real;{член ряда,сумма членов ряда}
n,i:integer;{счетчик шагов, счеткич цикла фор}
done:boolean;{нашлось ли значение с заданой точностью (да\нет)}
f: longint; {факториал}
begin
clrscr;
    writeln('введите начальный и конечный аргумент и точность');
    readln(x,xk,epsx);
    writeln('Введите смещение');
    readln(xd);
    writeln('---------------');
    writeln(' | x | y | n | ');
    while (abs(x)<=abs(xk)) do
     begin
     done:=true;
     c:=1;
     y:=1;
     n:=1;
     s:=1;
     while(abs(c)>epsx) do
       begin
         if (n mod 2)=0 then
         p:=1
         else
         p:=-1;
        F:=1;
        S:=1;
         for i:=1 to (2*n) do s:=s*x;{x^2}
         for i:=1 to n do f:=f*i;{n!}
        c:=p/(s/f);{член ряда}
        y:=y+c;{добавление членаряда к сумме}
        inc(n);
        if (n>maxitter) then
         begin
          writeln('r9d rashodits9');
          done:=false;
          break;
         end;
        end;
       if done then
       writeln('| ',x:3:2,' | ',y:5: 5,' | ',n,' | ');
       if (x<xk) then
       x:=x+xd
       else
       x:=x-xd;
       if(x=xk) then
       break;
       end;
       repeat   until KeyPressed;

       end.

Как говорил не правильно работает N

[Stilet]

Что-то я тебя не очень понимайт...
Твой код помоему ну очень запутанный.
Вот я прикинул как твою формулу рассчитать:

  var x,y:double;m,i:integer;
begin
 i:=4; {Это точность}
 x:=2;m:=1;
 while i>0 do begin
   y:=y+m*exp((i)*ln(x))/(i);
   m:=m*-1;
   dec(i);
   writeln('i=',i,'  y=',y:5:2);
 end;
readln;
end.

Смысл понятен?

[PaRaZuT]

X,M это начальный и конечный аргумент? С точностью немного не понял.

[Stilet]

Начальный аргумент у тебя 1.
i:=4; - это максимальное число степени X, которое будет вычисленно. Вот у тя в формуле x в степени 4 последняя, я 4-ку и поставил. Фактически насколько я понимаю это и есть точность.

[PaRaZuT]

Ну ряд имеет бесконечное количество членов. Точность зависит от количества прибавленных членов.