Сумма ряда в Паскаль, ошибка

[vitjok]

Сумма ряда в Паскаль, ошибка

Для заданного с консоли значения n определить сумму числового ряда: :

Результаты вычислений вывести в виде таблицы с заголовком. Вычисленные значения ряда сравнить со значением функции f.
Накопление суммы производим по рекуррентной формуле – каждая последующая сумма вычисляется через предыдущую

код составил но он работает не правильно ошибка в самом важном(( в задание рекурентной формулы( пытался еще сделать через переходный коэффициент так там вообще бред ролучился(( отзовитесь кто нибудь(( заранее большое спасибо)

PROGRAM Vitjok_part1;
USES CRT;
const pi=3.14159265358;
VAR
 sum, f : real;
 n, i : integer;
BEGIN
 writeln('Laboratornaja rabota #4');
 writeln('Variant #3');
 writeln('IS-12-2');
 writeln('Kapustin Victor');
 writeln;
  write('n = ');
  readln(n);
  writeln;
  writeln(' n sum ');
  writeln('_______________');
  f:=0.5-pi/8;
  sum:=0;
 for i:=1 to n do
  begin
   sum:=sum+(1/((4*n-1)*(4*n+1)));
   writeln(' ', i, ' ', sum:0:5);
  end;
 writeln('_______________');
 writeln(' f = ', f:0:5);
 readln;
END.

 

[Vladimir_S]

код составил но он работает не правильно ошибка в самом важном(( в задание рекурентной формулы

Правильно, и ошибка тут абсолютно очевидна. Но прежде, чем говорить о ней - одно замечание и один вопрос.
1. Вводить строку
const pi=3.14159265358;
не нужно: в Паскале величина Pi определена. Так что эту строку можете просто выбросить.
2. А не подскажете, для кого я это тут распинался насчет нежелательности обвешивания программы балластом неиспользуемых модулей, в частности, CRT? Видимо, для переизбранного президента Обамы или для левой стенки комнаты. Ну-ну...

Теперь об ошибке. В теле цикла в знаменателе формулы должна стоять переменная цикла, а не предел. То есть i, а не n. Исправьте, и всё пойдёт.

 

[vitjok]

я бы рад весь этот баласт убрать но так требует препод)) а на счет пи я знаю просто код не редактированный)) спасибо))

 

[vitjok]

а при выводе суммы мне нужно что бы ответ был приближен к F , как это сделать??)будет ли правильно если sum:=0.1??))и еще кое что, вы очень хорошо объясняете я от души вам благодарен)

 

[Vladimir_S]

так требует препод))

Расстреляйте его при случае из рогатки. Если что - скажите, мол на форуме посоветовали.

 

[Vladimir_S]

а при выводе суммы мне нужно что бы ответ был приближен к F , как это сделать??)будет ли правильно если sum:=0.1??))и еще кое что, вы очень хорошо объясняете я от души вам благодарен)

Что-то не совсем понял. Чем больше членов ряда возьмете, тем ближе будет результат к точному значению. А как иначе?

 

[vitjok]

все понятно) спасибо)

 

[Vladimir_S]

все понятно) спасибо)

Сейчас поиграл с Вашей программой, и вот результат:

           f = 0.10730
______
n =   10 Sum = 0.10135
n =  100 Sum = 0.10668
n = 1000 Sum = 0.10724
n= 10000 Sum = 0.10729

 

[vitjok]

именно в таком виде выводит?))

 

[vitjok]

а какой результат при 1 выводит?)0.06667?)

 

[Vladimir_S]

именно в таком виде выводит?))

Нет, это я так просто представил для наглядности. Чтобы показать сходимость.

 

[Vladimir_S]

а какой результат при 1 выводит?)0.06667?)

Ага. __________