Вычисление CosX - найдите ошибку

@Yami_Yami · Регистрация: 06.10.2009

Студворк — интернет-сервис помощи студентам

Не использую стандартные функции (за исключением abs) вычислить с точностью eps>0
y=cosx=1-x^2/2!+x^4/4!-...+(-1)^n*x^2n/(2n)!

У меня вообщем вот так получилось

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
Program zadacha;
 
Uses crt;
 
Var
    x,eps,y,e:real;
    n,k,i,zn,f,j:integer;
Begin
    ClrScr;
    Write ('Argument x (v gradusah) =');
    Readln(x);
    Write('tochnost eps =');
    Readln (eps);
    x:=x*pi/180;
    y:=1;
    n:=1;
    zn:=1;
    f:=1;
    repeat
      for j:=1 to n do f:=f*(-1); [COLOR="DimGray"]{определяем знак слогаемого т.е. (-1)^n}[/COLOR]
      k:=2*n;
      for i:=1 to k do zn:=zn*i; [COLOR="DimGray"]{вычисляем факториал}[/COLOR]
   [COLOR="Red"]   e:=f*exp(ln(x)*(2*n))/zn;[/COLOR] [COLOR="DimGray"]{вычисляем слогаемое}[/COLOR]
      y:=y+e;
      n:=n+1;
    until abs(y)<eps;
 
    Writeln ('y=cos',x,'=',y:5:2);
    Readln;
End.

Выдает ошибку 200:division by zero (на красной строчке)
проверила-ну никак нуля быть не может
что делать?
заранее благодарствую

@кот Бегемот · 08.11.2009, 12:26

Значение zn выходит за пределы не только integer, но и longint.

@Том Ардер · 08.11.2009, 17:49

Ошибки в инициализации внутренних циклов: f:=1, zn:=1 должны быть внутри главного цикла.
Ошибка в условии главного цикла: должно быть

Pascal
1
until abs(e) < eps

Но! Всё гораздо проще - не надо никаких внутренних циклов, т.е. не надо (-1)^n и факториала.

Pascal
1
2
3
4
5
6
7
8
9
10
y := 1;
e := 1;
n := 1;
n2:= 2; {2*n}
x2 := x*x;
repeat
    e := -e*x2/((n2-1)*n2);   {числитель (-1)^n*x^(2n), знаменатель (2n)!}
    y := y + e;
    n2 := n2 + 2;
until abs(e) < eps

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	08.11.2009, 12:26
	Значение zn выходит за пределы не только integer, но и longint. 0