|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.09.2009, 15:09 | #1 |
Пользователь
Регистрация: 18.09.2009
Сообщений: 15
|
Сумма бесконечного ряда
http://pic.ipicture.ru/uploads/090918/ikyxRzTa31.jpg
Программу составил, но не уверен что верно, поправьте пожалуйста, если есть ошибки: program lab1_2; uses crt; var y,w,n,esp:real; A:integer; BEGIN clrscr; writeln('Введите A'); read(A); writeln('Введите esp'); read(esp); w:=0.0; n:=1; y:=1/(n*(n+A)); while y >= esp do begin y:=1/(n*(n+A)); w:=w+y; n:=n+1; end; writeln('w=',w:5:3); readln; readln; END. |
18.09.2009, 16:14 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вроде верно. Результат нужный выдает?
I'm learning to live...
|
18.09.2009, 20:04 | #3 |
Пользователь
Регистрация: 18.09.2009
Сообщений: 15
|
Она работает, и результат выдает, только никак не пойму правильный он или нет)
|
18.09.2009, 20:41 | #4 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
Введи А=0, епсилон 0.1 и посчитай на калькуляторе для двух разных n.
А потом "научным" заключением, типа мат.индукции - раз для 2х работает, то и для 3х тоже)) Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сумма бесконечного ряда с точностью Паскаль | Кириллович | Помощь студентам | 9 | 30.05.2009 13:36 |
Сумма бесконечного ряда (баг) | Anarx | Общие вопросы C/C++ | 2 | 23.03.2009 15:29 |
Delphi. Вычислить сумму бесконечного ряда | Alex1991 | Помощь студентам | 1 | 23.10.2008 22:39 |
Паскаль. Сумма бесконечного ряда | Tream | Помощь студентам | 4 | 13.10.2007 23:42 |