Цитата:
Сообщение от Anastasia12
Для заданного с консоли значения 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.