Почти решил

[Tabigon]

program Sin2x;

{$APPTYPE CONSOLE}

uses
SysUtils, Math;

var
a, b, c, d, e, f, g, k, l, z, o, p, m, x, eps: Real;
h, i, j, n: Integer;
begin
Writeln('Vvedite x');
Readln(x);
Readln(eps);
n:=0;
g:=1;
z:=0;
while abs(z)<= eps do
begin
inc(n);
for i:= 1 to n do
g:= g*(2*i);
z:=z+power(-1,n-1)*power(2,2*n-1)*Power(x,2*n)/g;
end;
writeln(z:10:8);
Readln;
end.
Программа решает всё правильно,но она проводит цикл вайл только один раз почему-то.Я пишу к примеру,что ЕПС должен быть больше модуля окончательного числа и только тогда программа должна останавливаться,но она в любом случае только один раз вычисляет и выходит из цикла. Помогите пожалуйста

[BDA]

1) g := 1 должно быть, скорее всего, сразу перед for i:= 1 to n do
2) Вам нужно, скорее всего, проверять не весь Z (abs(z)<= eps), а текущий элемент суммы

[Tabigon]

Сообщение от BDA

1) g := 1 должно быть, скорее всего, сразу перед for i:= 1 to n do
2) Вам нужно, скорее всего, проверять не весь Z (abs(z)<= eps), а текущий элемент суммы

Вы натолкнули меня на мысль
написал,что а= этой большой формуле,а потом z = z+a. В проверку вайла вставил а,но оно всё равно отказывается выполнять больше одного раза

[BDA]

Выложите исправленный код и само задание.

[Tabigon]

program Sum_progressii_Cikl;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
    a, b, c, d, e, f, g, k, l, z, o, p, m, x, eps: Real;
    h, i, j, n: Integer;
begin
Writeln('Vvedite x');
Readln(x);
Readln(eps);
n:=0;
g:=1;
z:=0;
while abs(a)<= eps do
begin
inc(n);
for i:= 1 to n do
g:= g*(2*i);
a:=power(-1,n-1)*power(2,2*n-1)*Power(x,2*n)/g;
z:=z+a;
end;
writeln(z:10:8);
Readln;
end.

Вычислите sin2(x) с точностью EPS по формуле Маклорена, т.е. вычисление суммы ряда нужно продолжать до тех пор, пока абсолютная величина очередного члена ряда не станет меньше EPS. Определите количество членов ряда, которое для этого понадобилось. Формула Маклорена работает правильно (по ней вычисляется а)



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[BDA]

Проверьте:

program Sum_progressii_Cikl;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
    a, g, x, z, eps: Real;
    n: Integer;
begin
    Writeln('Vvedite x');
    Readln(x);
    Readln(eps);
    n := 1;
    g := 2;
    z := 0;
    a := x * x;
    while abs(a) > eps do
    begin
        z := z + a;
        inc(n);
        g:= (2 * n) * (2 * n - 1) * g;
        a := power(-1, n - 1) * power(2, 2 * n - 1) * Power(x, 2 * n) / g;
    end;
    writeln(z:10:8, ' ', n - 1);
    Readln;
end.

UPD
Исправлена ошибка

[Tabigon]

Выводит все нули.В моей программе одна ошибка - не повторяется цикл... и я не понимаю почему

[BDA]

Ой, я забыл поменять знак
while abs(a) > eps do

[Tabigon]

Работает! Не могли бы вы объяснить,почему именно больше эпсилон?И ещё,а как мне вывести z,чтобы количество знаков после запятой равнялось эпсилон? Я знаю,что как-то через логарифм,но у меня выдаёт ошибку "неизвестный тип"

[BDA]

Я добавляю a, пока оно больше eps. Как только оно станет меньше, то добавлять бессмысленно, т.к. влияние на всю сумму будет незначительным.
Вроде как надо: writeln(z:0:round(-ln(eps) / ln(10)), ' ', n - 1);

UPD
Пожалуйста