Вопрос № 71865: Здраствуйте товарищи программисты!Пожалуйста нарисуйте мне блок схему по программе!У меня не получается!Заранее спасибо!Вот программа:...Вопрос № 71870: Здраствуйте товарищи программисты!Напишите мне пожалуйста программу!Вот условие!Использование функции в циклических процессах. Найти предел последовательности An, которая вычисляется по формуле An=(b*n)/((корень квадратный(n*n+1))+(корень квадратный(...
Вопрос № 71.865
Здраствуйте товарищи программисты!Пожалуйста нарисуйте мне блок схему по программе!У меня не получается!Заранее спасибо!Вот программа:
Приложение:
Отправлен: 20.01.2007, 21:31
Вопрос задал: SHTEP (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Berkut55544
Здравствуйте, SHTEP!
Напишите мне по внутренней почте, вышлю Вам Блок-схему.
--------- Процесс важнее победы
Ответ отправил: Berkut55544 (статус: 7-ой класс)
Ответ отправлен: 20.01.2007, 21:42 Оценка за ответ: 5
Вопрос № 71.870
Здраствуйте товарищи программисты!Напишите мне пожалуйста программу!Вот условие!Использование функции в циклических процессах. Найти предел последовательности An, которая вычисляется по формуле An=(b*n)/((корень квадратный(n*n+1))+(корень квадратный(n*n-1))) , где (n стремится к бесконечности)!Величину b ввести с клавиатуры. Вычисление остановить при выполнении условия
|An-(A(n-1))|<E. При составлении программы An реализовать в виде функции A(n).
Отправлен: 20.01.2007, 21:46
Вопрос задал: SHTEP (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Устинов Сергей Евгеньевич
Здравствуйте, SHTEP!
Решение задачи (Кстати гляньте, в задании корень квадратный из (n*n-1) или (n*(n-1))) - соответственно скорректируйте:
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))
writeln(A(n):9:5);
readln;
end.
Ответ отправил: Устинов Сергей Евгеньевич (статус: Практикант)
Ответ отправлен: 20.01.2007, 22:05 Оценка за ответ: 5 Комментарий оценки: Спасибо большое
