Составить Алгоритм И Программу Обработки Членов Числовой Последователь

[Zorch]

Ссылка скрыта от гостей

 

[Zorch]

Вроде как разобрался, но есть некоторые, непонятные мне, моменты:

uses crt;
var
a,b,c,d,p,x,x0,h:real;
m,n,k,i:integer;
begin
clrscr;
writeln('Введите A,B,C,D,x0,H,M,N');
read(A,B,C,D,x0,H,M,N);
P:=A;
if (B<P) then P:=B;
if (C>D) then
if (C<P) then P:=C else
if (D<P) then P:=D;
writeln('P=',P:5:2);
for i:=1 to M do
begin
x:=x0+(i-1)*H;
AK:={формула} <=============================================== №2 с картинки
write('A1=',AK:5:2,' ');
if AK{четный} then S:=AK else S:=0; <=============================== как проверить четность?
for k:=2 to N do
begin
AK:={формула} <============================================== №1 с картинки
write('A',k,'=',AK:5:2,' ');
if AK{четный} then S:=S+AK <===================================== как проверить четность?
end;
writeln;
writeln('Сумма четных членов S=',S:5:2,' при P=',P:5:2);
end;
End.

Помогите привести последовательность (красная кромка) к такому же результату, как в образце (синяя кромка)

 

[Whatka]

ты последующий на предыдущий разделить не можешь?

 

[Zorch]

не пойму, как из десятичного логарифма получить экспанент

 

[Whatka]

а кто вам сказал,что нужно получить экспаненту?

 

[Zorch]

Я уже весь день пялюсь на этот пример, перерыл кучу информации и мне все равно не понятно, нигде нет аналогии. Если нет желания помочь, зачем надо было писать?

ты последующий на предыдущий разделить не можешь?

Ссылка скрыта от гостей

Получается так

 

[Whatka]

не правильно
с факториалом ошибся и минус потерял

надо не пялится на пример,а решать его
вы за весь день даже поделить не смогли нормально

желание помоч?
я с радостью помогу
только суть же не решить за вас,а достичь вашего понимания

 

[Zorch]

Да я и сам хочу понять, но не могу никак. В каком месте ошибся с факториалом? В знаменателе k(k+1)!, тогда в числителе получается (k-1)((k-1)+1)!

Ссылка скрыта от гостей

Минус где потерял? Если в первой дроби, то там минус на минус дает плюс по идее

 

[Whatka]

степень -1: k-1-(k-2)=1

Факториалы:

1/( k*(k+1)!) *(k-1)*k! = (k-1)/(k*(k+1))

 

[Zorch]

Ссылка скрыта от гостей

получается такая фигня

 

[Zorch]

а логарифмы точно сокращаются?

 

[Whatka]

да
реккурентное соотношение для к от 2
нулевой и первый член из исходного найди

 

[Zorch]

нулевой и первый член из исходного найди

это как?

 

[Whatka]

для k=0 не определена
для k=1 x*x*lg|p|*0.5