0

Как мне следует написать правую часть равенства

Alt text

при заданном вещественном x и натуральном n. В правой части должно быть n слагаемых. Я планировал использовать цикл у условный оператор, но в этом случае ответы получаются абсолютно левыми.

program formula;
{$APPTYPE CONSOLE}
uses SysUtils;
var
  i,n:integer;
  s,a,x:real;

begin
  readln(x,n);
  s:=1-1/2*x;
  a:=1/2*x;
  for i:=2 to n do
  begin
    a:=-a*(2*i-1)/(2*i);
    s:=s+a;
  end;
  write('s=',sqrt(1-x):8:4, ' s=',s:8:4);
  readln
end.

2 ответа 2

3

В строке a:=1/2*x; добавьте минус в правой части.

В строке a:=-a*(2*i-1)/(2*i); домножьте правую часть на х.

В выражении sqrt(1-x):8:4 вы забыли про степень -1 и зачем-то вычили x, когда надо прибавлять.

Работающий пример.

2
1

Odd Функция проверяет четное число или нет

Заводите 2 переменные в одной считаете верхнюю часть, в другой нижнюю часть. Дальше простая математика. Дальше циклом, писать полностью код влом, выложите свой подскажу в чем ошибка.

3
  • program formula; {$APPTYPE CONSOLE} uses SysUtils; var i,n:integer; s,a,x:real; begin readln(x,n); s:=1-1/2*x; a:=1/2*x; for i:=2 to n do begin a:=-a*(2*i-1)/(2*i); s:=s+a; end; write('s=',sqrt(1-x):8:4, ' s=',s:8:4); readln end.
    – skeeph
    29 ноя 2012 в 11:56
  • конечно полный бред и будет. Возведения в степень вообще нет,в общем рсписуйте в строчку полностью пример и пытайтесь нписать.
    – Rsecomua
    29 ноя 2012 в 12:02
  • @savro: возведение в степень и не нужно, в a вычисляется текущее слагаемое на основе предыдущего
    – VladD
    29 ноя 2012 в 14:57

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.