Технический форум - Помогите, пожалуйста, определить сумму числового ряда

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Помогите, пожалуйста, определить сумму числового ряда

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

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

паскаль

Цитата:

Сообщение от Anastasia12 (Сообщение 2437235)

Для заданного с консоли значения n определить сумму числового ряда: Результаты вычислений вывести в виде таблицы с заголовком. Вычисленные значения ряда сравнить со значением функции

Дорогая Anastasia12!
Судя по тому, что Вы с этой задачкой, которая существенно проще вот этой аналогичной, но уже рассмотренной нами, вылезаете на форум, учиться Вы решительно не желаете. Надеетесь так и выехать на форумах? Напрасно. Не Вы первая. А кончается это одинаково: вылетом, причем с треском. Потому что чужим умом не проживёте, уж поверьте.
До сессии еще месяц, так что мой Вам совет: СРОЧНО беритесь за учёбу. Потом поздно будет. И никакие "спасите, помогите, срочно напишите мне курсовик, а то отчисляют!" не помогут. Проходили, и не раз.
Да, а задачка - ну что же, пожалуйста. Может быть Вы хоть в этот раз попробуете разобраться?
Эх, мечты, мечты...

Код:

Var

 i,N,k:Integer;

 S,A:Real;



Begin

 Write('N = ');

 Readln(N);



 Writeln(' Result          Accurate value');



 A:=1;

 S:=A;

 k:=1;

 for i:=2 to N do

  begin

   k:=-k;

   A:=k*1/(2*i-1);

   S:=S+A;

  end;



 Writeln(S:7:5,Pi/4:20:5);



 Readln

End.

я делаю то сама. Для проверки своего решения прошу помочь. Спасибо

Цитата:

Сообщение от Anastasia12 (Сообщение 2437313)

я делаю то сама.

Вот это молодец!

Цитата:

Сообщение от Anastasia12 (Сообщение 2437313)

Для проверки своего решения прошу помочь.

А Вы выкладывайте, не стесняйтесь! Потому что решений может быть много, тут важно довести до ума именно Ваше.

Program Variant_2;

Var s, f, t: Real;
i, n: Word;
Const p=3.14;
Begin

Write('n=');
ReadLn(n);
WriteLn;

WriteLn('----------------');
WriteLn(' i s');
WriteLn('----------------');

t:=1.0;
s:=1.0;
f:=P/4;

For i:=1 To n Do
Begin

t:=-(2*n)/(2*n+1);
s:=s+t;
WriteLn(i:3, ' ', s:0:6);

End;
WriteLn('----------------');

WriteLn;
WriteLn(' f=',f:0:6);
Readln;
End.

это моя программа

Цитата:

Сообщение от Anastasia12 (Сообщение 2437322)

это моя программа

Ну что же, прекрасно!
Первый блин, как говорится, комом - но ничего страшного.
Ошибок довольно много.
Разберем.
1. Константу p вводить не надо: в Паскале есть стандартная константа (функция) Pi.
2. Формула вычисления членов последовательности (t) должна зависеть не от n, а от i.
3. Сама формула записана неверно.
Ну вот, с учетом сказанного, отлаженный вариант Вашей программы:

Код:

Var

 s, f, t: Real;

 i, n: Word;

Begin





 Write('n=');

 ReadLn(n);

 WriteLn;



 WriteLn('----------------');

 WriteLn(' i s');

 WriteLn('----------------');



 t:=1.0;

 s:=1.0;

 f:=Pi/4;



 For i:=1 To n Do

  Begin



   t:=-t*(2*i-1)/(2*i+1);

   s:=s+t;

   WriteLn(i:3, ' ', s:0:6);



  End;

 WriteLn('----------------');



 WriteLn;

 WriteLn(' f= ',f:0:6);

Readln;

End.

Успехов! Обращайтесь, если что.