|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
23.11.2016, 08:17 | #1 (permalink) |
Member
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, определить сумму числового ряда
Результаты вычислений вывести в виде таблицы с заголовком. Вычисленные значения ряда сравнить со значением функции паскаль |
23.11.2016, 08:17 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Первым делом нужно ознакомиться с аналогичными топиками Delphi. Найти сумму ряда Сумма числового ряда Сумма числового ряда. Найдите ошибку Расчитать сумму ряда Найти сумму знакопеременного ряда |
23.11.2016, 11:22 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Судя по тому, что Вы с этой задачкой, которая существенно проще вот этой аналогичной, но уже рассмотренной нами, вылезаете на форум, учиться Вы решительно не желаете. Надеетесь так и выехать на форумах? Напрасно. Не Вы первая. А кончается это одинаково: вылетом, причем с треском. Потому что чужим умом не проживёте, уж поверьте. До сессии еще месяц, так что мой Вам совет: СРОЧНО беритесь за учёбу. Потом поздно будет. И никакие "спасите, помогите, срочно напишите мне курсовик, а то отчисляют!" не помогут. Проходили, и не раз. Да, а задачка - ну что же, пожалуйста. Может быть Вы хоть в этот раз попробуете разобраться? Эх, мечты, мечты... Код:
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. |
|
23.11.2016, 14:32 | #5 (permalink) |
Member
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
23.11.2016, 14:47 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну что же, прекрасно!
Первый блин, как говорится, комом - но ничего страшного. Ошибок довольно много. Разберем. 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. |
23.11.2016, 14:52 | #8 (permalink) |
Member
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо )
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|