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

vitjok · 07.11.2012, 14:21

Для заданного с консоли значения 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 · 07.11.2012, 14:39

Цитата:

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

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

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

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

vitjok · 07.11.2012, 14:51

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

vitjok · 07.11.2012, 14:54

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

Vladimir_S · 07.11.2012, 14:55

Цитата:

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

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

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

Vladimir_S · 07.11.2012, 14:57

Цитата:

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

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

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

vitjok · 07.11.2012, 14:59

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

Vladimir_S · 07.11.2012, 15:06

Цитата:

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

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

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

Код:

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

vitjok · 07.11.2012, 15:08

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

vitjok · 07.11.2012, 15:10

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

07.11.2012, 14:21	#1 (permalink)
vitjok Member Регистрация: 29.09.2012 Сообщений: 72 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Сумма ряда в Паскаль, ошибка Для заданного с консоли значения 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/((4n-1)(4*n+1))); writeln(' ', i, ' ', sum:0:5); end; writeln('_______________'); writeln(' f = ', f:0:5); readln; END.

07.11.2012, 14:21
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Не обделяйте вниманием данные ссылки Сумма в Паскале Паскаль. Подскажите в чем ошибка ?

07.11.2012, 14:51	#3 (permalink)
vitjok Member Регистрация: 29.09.2012 Сообщений: 72 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я бы рад весь этот баласт убрать но так требует препод)) а на счет пи я знаю просто код не редактированный)) спасибо))

07.11.2012, 14:54	#4 (permalink)
vitjok Member Регистрация: 29.09.2012 Сообщений: 72 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	а при выводе суммы мне нужно что бы ответ был приближен к F , как это сделать??)будет ли правильно если sum:=0.1??))и еще кое что, вы очень хорошо объясняете я от души вам благодарен)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

07.11.2012, 14:59	#7 (permalink)
vitjok Member Регистрация: 29.09.2012 Сообщений: 72 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	все понятно) спасибо)

07.11.2012, 15:08	#9 (permalink)
vitjok Member Регистрация: 29.09.2012 Сообщений: 72 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	именно в таком виде выводит?))

07.11.2012, 15:10	#10 (permalink)
vitjok Member Регистрация: 29.09.2012 Сообщений: 72 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	а какой результат при 1 выводит?)0.06667?)