Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
PaRaZiT
5 / 5 / 0
Регистрация: 20.01.2010
Сообщений: 15
#1

Ряд тейлера - Pascal

21.01.2010, 00:17. Просмотров 388. Ответов 2
Метки нет (Все метки)

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

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

Добавлено через 2 часа 45 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
var
X1, X2, D0, Y : real;
d,n :integer;
i : char;
begin
clrscr;
writeln('Пожалуйста напишите X1');
readln(X1);
writeln('Пожалуйста напишите X2');
readln(X2);
writeln('Пожалуйста напишите шаг');
readln(D0);
writeln('Пожалуйста введите точность экспоненты');
readln(d);
if (X1>-1) and (X1<=1) and (X2>-1) and (X1<=1) then
   begin
   writeln('__________________________________________');
   writeln('|    Y     |     X1   |     N   |');
   writeln('------------------------------------------');
              while X1<=X2 do
              begin
              Y:=ln((X1)+1);
              writeln('|',Y:10:d,'|', X1:10:d ,'|', d0:10 ,'|' );
              X1:=(X1)+(D0);
              end;
   writeln('-----------------------');
   readln;
   end
else
writeln('Значение функции некорректно');
readln;
end.
Собственно нужна помощь с точностью N-количеством членов ряда.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2010, 00:17
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Ряд тейлера (Pascal):

Положительные числа записать в ряд В, отрицательные в ряд С. - Pascal
Просмотреть ряд А из 20 чисел. Положительные числа записать в ряд В, отрицательные в ряд С. Подсчитать количество цифр в обоих рядах. На...

Ряд - Pascal
дана действительная квадратная матрица порядка п. Получить Х * Х + Х * Х + ...+Х * Х ...

Ряд Тейлора - Pascal
помогите плизз решить))) Применить формулу тейлора для y=sqrt(x)

Ряд Фибоначчи - Pascal
Вычислить сумму первых N членов ряда Фибоначчи.

Разложение в ряд - Pascal
Разложение в ряд) помогите люди добрые ) надо разложить в ряд на паскале) кто чем может помогите) буду очень пизнателен) по картинке

Дан ряд 1+2+3+4+.+n+ - Pascal
дан ряд 1+2+3+4+..+n+.. какое минимальное число членов ряда нужно сложить чтобы их сумма привысила 100. Помогите решить через оператор...

2
Puporev
Модератор
53020 / 40831 / 14075
Регистрация: 18.05.2008
Сообщений: 94,978
21.01.2010, 10:14 #2
Посмотри эту программку. Может что почерпнуть удастся.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var x,e,t,s:real;
    n:integer;
begin
clrscr;
repeat
write('Введите |x|<1  x=');
readln(x);
until abs(x)<1;
repeat
write('Введите точность 0<e<1  e=');
readln(e);
until(e>0)and(e<1);
s:=0;
n:=0;
t:=1;
while abs(t)>=e do
 begin
  n:=n+1;
  t:=t*x;
  if n mod 2=1 then s:=s+t/n
  else s:=s-t/n;
 end;
writeln('Ln(x+1)=',s:0:6,' n=',n);
write('Аналитически Ln(x+1)=',ln(x+1):0:6);
readln
end.
0
PaRaZiT
5 / 5 / 0
Регистрация: 20.01.2010
Сообщений: 15
21.01.2010, 13:18  [ТС] #3
Есть похожий код для ряда Тейлора, но в нем не работает N. Мысль такая же, что и в приведенной выше программе, но ошибку пока что вычислить не удается.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Program zadok3;
 
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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2010, 13:18
Привет! Вот еще темы с ответами:

ряд маклорена - Pascal
1.Вычислите сумму ряда с заданной степенью точности : ∑_(n-0)^∞ (-1)^n ×1/(3n+1) , =0,01 2.Значение функции sin2(x) можно...

числовой ряд - Pascal
решить надо через ветвление и циклы. Дан числовой ряд и малая величина ε. Найти сумму ряда с точностью ε, общий член которого задан...

Ряд маклорена - Pascal
помогите плизз решить))) задали по лабе, а мы такого даже не проходили по матану

ряд Тейлора - Pascal
Друзья, помогите разложить в ряд Тейлора sqrt(1+x) с требуемой точностью. Огромное спасибо , если кто сделает.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru