Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Marmeladka
0 / 0 / 0
Регистрация: 22.11.2010
Сообщений: 32
1

Использование функции в циклических процессах.

22.11.2010, 23:41. Просмотров 880. Ответов 2
Метки нет (Все метки)

Найти предел последовательности Аn, которая вычисляется по формуле An= (b*n)/корень(n^2 +1)+корень(n^2 -1), n ----> к бесконечности.
Величину b ввести с клавиатуры. Вычисления остановить при выполнении условия модуль откр. Аn-A(n-1) модуль закр. < Эпсилон.
Использование функции в циклических процессах.

Использование функции в циклических процессах.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.11.2010, 23:41
Ответы с готовыми решениями:

Вычисление значения функции с помощью циклических структур
Помогите пожалуйста составить программу вычисления значения функции с помощью...

Использование рекурсивной функции
Составить программу для вычисления значения с= n!/(m!(n-m)!) используя...

Процедуры, Функции. Организация и Использование
Помогите плиз решить 2 задачки для зачета... 1) Органицазия процедур....

Составление программ с использование функции
Описать рекурсивную функцию MinRec(A,N) вещества типа,которая находит...

Использование функции вычисления двойного факториала
Помогите, пожалуйста, решить. Используя 6-значный учебный шифр (его...

2
Puporev
Модератор
56127 / 42985 / 29733
Регистрация: 18.05.2008
Сообщений: 102,021
23.11.2010, 09:49 2
Лучший ответ Сообщение было отмечено Marmeladka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
function F(x:real;n:integer):real;
begin
F:=x*n/(sqrt(n*n+1)+sqrt(n*n-1));
end;
var b,a,an,e:real;
    n:integer;
begin
clrscr;
write('b=');readln(b);
write('e=');readln(e);
if abs(F(b,1))<=e then write('An=',F(b,1):0:5)
else
 begin
  a:=F(b,1);
  n:=1;
  an:=0;
  while abs(a-an)>e do
   begin
    an:=a;
    n:=n+1;
    a:=F(b,n);
   end;
  write('An=',an:0:5);
 end;
readln
end.
0
Marmeladka
0 / 0 / 0
Регистрация: 22.11.2010
Сообщений: 32
24.11.2010, 01:50  [ТС] 3
Большое спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2010, 01:50

Найдите ошибки в вычислительных процессах.
Пожалуйста, найдите ошибки. Задача: Вычислить p=x^3+ln(x+y)-|y|, если y&lt;&gt;0...

Использование имени массива как параметра функции
Для получения результата разработать алгоритм и программу, содержащую функцию,...

3 циклических
помогите! 1. Напечатать таблицу соответствия расстояний в дюймах расстояниям...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru