Вопрос № 110658: Здравствуйте, уважаемые эксперты!
1) Дано натуральное число n.
Вычислить http://i030.radikal.ru/0711/21/c2d583c93707.jpg
2) Вычислить 1-1/2+1/3...+1/9999-1/10000 способом последовательно с права на лево.
Спасибо!...
Вопрос № 110.658
Здравствуйте, уважаемые эксперты!
1) Дано натуральное число n.
Вычислить http://i030.radikal.ru/0711/21/c2d583c93707.jpg
2) Вычислить 1-1/2+1/3...+1/9999-1/10000 способом последовательно с права на лево.
Спасибо!
Отвечает: Coupler
Здравствуйте, Аксенов Антон!
В приложении решение обоих задач.
Приложение:
Ответ отправил: Coupler (статус: Практикант)
Ответ отправлен: 23.11.2007, 12:10
Отвечает: sergesus
Здравствуйте, Аксенов Антон!
вот ответ на первое:
var
n,k:integer;
y,x:integer;
sum,f:real;
begin
{n:=} {есле нужно то вводим n}
for k := 1 to n do
begin
f:=1/(exp(5*ln(k))); {x^y= exp(y*ln(x)) вычисляем 1/k^5}
sum:=sum+f; {наша ссумма}
end;
end.
Приложение:
Ответ отправил: sergesus (статус: 1-ый класс)
Ответ отправлен: 23.11.2007, 16:30