Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.11.2010, 16:26   #1
k0tone
Пользователь
 
Аватар для k0tone
 
Регистрация: 09.11.2010
Сообщений: 99
По умолчанию разложение SIN(X) в ряд Тейлора (Pascal)

Не могу понять что я упустил... Вроде как всё считает и довольно таки правильно, НО при подстановке Х (начиная с 40) результат становится менее точный, а начиная с 49 так и вообще беда.
Собственно вот код: (Pascal)
Код:
program sin;
var x,stx,sint,e,fakt,z:extended;
    i:integer;
begin
write('Vvedite x=');
readln(x);
write('Vvedite tochnost e=');
readln(e);
{x:=(pi*x)/180;}
 stx:=x;
 fakt:=1;
 sint:=0;
 i:=0;
 z:=1;
while stx/fakt>=e do begin
                      sint:=sint+z*stx/fakt;
                      i:=i+2;
                      stx:=stx*x*x;
                      fakt:=fakt*(i+1)*i;
                      z:=z*(-1);
                     end;
writeln('kolichestvo elementov v razlozhenii =',i div 2);
writeln('znachenie sin(',x:6:6,')=',sint:6:6);
readln;
end.
Если я вам помог - нажмите на весы пот аватаркой!
k0tone вне форума Ответить с цитированием
Старый 09.11.2010, 16:38   #2
Риндера
Delphi, учу С
Форумчанин
 
Аватар для Риндера
 
Регистрация: 20.10.2010
Сообщений: 178
По умолчанию

Нашла точно такую же программу, даже имена переменных одинаковые.
Быть может так и должно быть?
Риндера вне форума Ответить с цитированием
Старый 09.11.2010, 16:51   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
Вроде как всё считает и довольно таки правильно, НО при подстановке Х (начиная с 40) результат становится менее точный, а начиная с 49 так и вообще беда
может вам почитать про сходимость ряда?
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 09.11.2010, 16:54   #4
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,534
По умолчанию

Цитата:
Сообщение от Риндера Посмотреть сообщение
Быть может так и должно быть?
Конечно! У нас же с вами не компьютер бесконечности!
Sasha_Smirnov вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разложение функции в ряд Тейлора (Pascal) berdeman Паскаль, Turbo Pascal, PascalABC.NET 3 04.05.2010 20:03
Разложение функции, Ряд Тейлора. Andrag Помощь студентам 6 22.01.2010 14:41
Лабораторная на С++ (Массивы, разложение в ряд Тейлора) AxGreg Помощь студентам 5 06.11.2009 17:43
Ряд Тейлора, sin, cos... Kostia Общие вопросы Delphi 6 05.10.2008 09:13

Реклама для незарегистрированных, регистрация на форуме