Консультация № 71870
20.01.2007, 21:46
0.00 руб.
0 1 1
Здраствуйте товарищи программисты!Напишите мне пожалуйста программу!Вот условие!Использование функции в циклических процессах. Найти предел последовательности An, которая вычисляется по формуле An=(b*n)/((корень квадратный(n*n+1))+(корень квадратный(n*n-1))) , где (n стремится к бесконечности)!Величину b ввести с клавиатуры. Вычисление остановить при выполнении условия
|An-(A(n-1))|<E. При составлении программы An реализовать в виде функции A(n).

Обсуждение

Неизвестный
20.01.2007, 22:05
общий
это ответ
Здравствуйте, SHTEP!

Решение задачи (Кстати гляньте, в задании корень квадратный из (n*n-1) или (n*(n-1))) - соответственно скорректируйте:

<code>
program pr1;
const E=0.0001;
var b:real;
n:integer;

function A(n:integer):real;
begin
a:=(b*n)/(sqrt(n*n-1)+sqrt(n*n+1));
end;

begin
write(‘b=‘);
readln(b);
n:=1;
repeat
n:=n+1;
until (abs(A(n)-A(n-1))<E);
writeln(A(n):9:5);
readln;
end.
</code>

Удачи!
Форма ответа