![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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. |
![]() |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Вроде верно. Результат нужный выдает?
I'm learning to live...
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 18.09.2009
Сообщений: 15
|
![]()
Она работает, и результат выдает, только никак не пойму правильный он или нет)
|
![]() |
![]() |
![]() |
#4 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
![]()
Введи А=0, епсилон 0.1 и посчитай на калькуляторе для двух разных n.
А потом "научным" заключением, типа мат.индукции ![]() ![]() Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 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 |