Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
 Аватар для Sashul'ka
0 / 0 / 2
Регистрация: 14.05.2011
Сообщений: 8

Числовая последовательность.

15.04.2012, 02:11. Показов 3245. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Для числовой последовательности аn=√n+1 - √n, n = 1,2,…
найти первый член и его номер M такой, чтобы an < ε, где ε – заданное
число, например, ε = 0,001 и вычислить сумму S=Ʃan, n=1,2...M.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.04.2012, 02:11
Ответы с готовыми решениями:

Является ли данная числовая последовательность возрастающей
Проверьте, является ли данная числовая последовательность а1, a2, ..., an возрастающей

Самая длинная неубывающая числовая последовательность
В данном одномерном числовом массиве найти самую длинную неубывающую числовую последовательность и вывести её на экран. ПОДСКАЖИТЕ, В...

Задана числовая последовательность с неизвестной "n"
Всем доброго утра. Помогите пожалуйста. Задана числовая последовательность с неизвестной &quot;n&quot;. За ранее благодарен. ...

5
 Аватар для BumerangSP
4311 / 1423 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
15.04.2012, 14:45
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var n: integer;
    s,a,e: real;
begin
 clrscr;
 n:=1;
 write('e: ');
 readln(e);
 a:=1;
 while a>e do
  begin
   a:=sqrt(n+1)-sqrt(n);
   s:=s+a;
   inc(n);
  end;
 writeln('S = ',s:5:4,' M = ',n-1);
 readln;
end.
1
 Аватар для Sashul'ka
0 / 0 / 2
Регистрация: 14.05.2011
Сообщений: 8
15.04.2012, 15:07  [ТС]
Спасибо Вам, BumerangSP. Но программа выдает ошибку 207, если вводишь ε=0,001, а если вводишь ε=1 и больше, то сумма и М равно нулю.
0
 Аватар для BumerangSP
4311 / 1423 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
15.04.2012, 15:17
Sashul'ka, пора бы уже переходить с дос паскаля на что-нибудь посовременней. Эта ошибка означает неверную вещественную операцию (либо переполнение, либо деление на 0 или что-то в это духе). Я делал в паскале абс и все прекрасно работает. Насчет e=1, в 9 строчке исправить a:=1,4. Это при подстановке единицы первое слагаемое.
0
 Аватар для Sashul'ka
0 / 0 / 2
Регистрация: 14.05.2011
Сообщений: 8
15.04.2012, 15:40  [ТС]
Какой в вузе паскаль, на таком и работаю =). Так что, если не трудно, помогите написать программу на дос паскале.
0
 Аватар для BumerangSP
4311 / 1423 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
15.04.2012, 15:52
Sashul'ka, понимаете, работать-то она работает, как и должна. Здесь просто итераций много. Чем меньше число е, тем дольше будет вычисляться an. Потому и вероятность переполнения или чего-то такого велика. Алгоритм-то правильный, проблема может быть только в an, точнее в его значении. У Вас ведь тут корень.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.04.2012, 15:52
Помогаю со студенческими работами здесь

Числовая прямая (массив)
На числовой прямой задано N точек. Расстояние между двумя точками вычисляется по формуле |x - y|. необходимо найти две самые ближайшие...

Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы
Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы

2. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность
Написал программу var a,c:array of integer; count,i,p,u: integer; begin for i:=1 to 10 do begin read(p); a:=p; end;

Вставить в последовательность число так, чтобы последовательность осталась неубывающей.
Дана последовательность действительных чисел а1&lt;=а2...&lt;=an. Вставить в нее действительное число b так, чтобы последовательность осталась...

дана последовательность вещественных чисел а1,а2,.а15 Определить являеться ли последовательность упорядоченной по возрастанию
дана последовательность вещественных чисел а1,а2,...а15 Определить являеться ли последовательность упорядоченной по возрастанию. В случае...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru