Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 23.11.2016, 08:17   #1 (permalink)
Anastasia12
Member
 
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, пожалуйста, определить сумму числового ряда

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

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


паскаль
Миниатюры
eaaa4.png  
Anastasia12 вне форума   Ответить с цитированием

Старый 23.11.2016, 08:17
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Первым делом нужно ознакомиться с аналогичными топиками

Delphi. Найти сумму ряда
Сумма числового ряда
Сумма числового ряда. Найдите ошибку
Расчитать сумму ряда
Найти сумму знакопеременного ряда

Старый 23.11.2016, 11:22   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от 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.
Vladimir_S вне форума   Ответить с цитированием
Старый 23.11.2016, 14:26   #3 (permalink)
Anastasia12
Member
 
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

я делаю то сама. Для проверки своего решения прошу помочь. Спасибо
Anastasia12 вне форума   Ответить с цитированием
Старый 23.11.2016, 14:28   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Anastasia12 Посмотреть сообщение
я делаю то сама.
Вот это молодец!
Цитата:
Сообщение от Anastasia12 Посмотреть сообщение
Для проверки своего решения прошу помочь.
А Вы выкладывайте, не стесняйтесь! Потому что решений может быть много, тут важно довести до ума именно Ваше.
Vladimir_S вне форума   Ответить с цитированием
Старый 23.11.2016, 14:32   #5 (permalink)
Anastasia12
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.
Anastasia12 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 23.11.2016, 14:32   #6 (permalink)
Anastasia12
Member
 
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

это моя программа
Anastasia12 вне форума   Ответить с цитированием
Старый 23.11.2016, 14:47   #7 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Anastasia12 Посмотреть сообщение
это моя программа
Ну что же, прекрасно!
Первый блин, как говорится, комом - но ничего страшного.
Ошибок довольно много.
Разберем.
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.
Успехов! Обращайтесь, если что.
Vladimir_S вне форума   Ответить с цитированием
Старый 23.11.2016, 14:52   #8 (permalink)
Anastasia12
Member
 
Регистрация: 12.11.2016
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо )
Anastasia12 вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:21.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.