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

Тема в разделе "Pascal and Delphi", создана пользователем Zorch, 21 дек 2012.

Наш партнер Genesis Hackspace
  1. Zorch

    Zorch Гость

    Вроде как разобрался, но есть некоторые, непонятные мне, моменты:
    Код (Text):
    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.
    Помогите привести последовательность (красная кромка) к такому же результату, как в образце (синяя кромка)
    [​IMG]
     
  2. Whatka

    Whatka Well-Known Member

    Регистрация:
    9 окт 2011
    Сообщения:
    433
    Симпатии:
    4
    ты последующий на предыдущий разделить не можешь?
     
  3. Zorch

    Zorch Гость

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

    Whatka Well-Known Member

    Регистрация:
    9 окт 2011
    Сообщения:
    433
    Симпатии:
    4
    а кто вам сказал,что нужно получить экспаненту?
     
  5. Zorch

    Zorch Гость

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

    Whatka Well-Known Member

    Регистрация:
    9 окт 2011
    Сообщения:
    433
    Симпатии:
    4
    не правильно
    с факториалом ошибся и минус потерял

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

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

    Zorch Гость

    Да я и сам хочу понять, но не могу никак. В каком месте ошибся с факториалом? В знаменателе k(k+1)!, тогда в числителе получается (k-1)((k-1)+1)!
    [​IMG]
    Минус где потерял? Если в первой дроби, то там минус на минус дает плюс по идее
     
  8. Whatka

    Whatka Well-Known Member

    Регистрация:
    9 окт 2011
    Сообщения:
    433
    Симпатии:
    4
    степень -1: k-1-(k-2)=1

    Факториалы:

    1/( k*(k+1)!) *(k-1)*k! = (k-1)/(k*(k+1))
     
  9. Zorch

    Zorch Гость

    [​IMG]
    получается такая фигня
     
  10. Zorch

    Zorch Гость

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

    Whatka Well-Known Member

    Регистрация:
    9 окт 2011
    Сообщения:
    433
    Симпатии:
    4
    да
    реккурентное соотношение для к от 2
    нулевой и первый член из исходного найди
     
  12. Zorch

    Zorch Гость

    это как?
     
  13. Whatka

    Whatka Well-Known Member

    Регистрация:
    9 окт 2011
    Сообщения:
    433
    Симпатии:
    4
    для k=0 не определена
    для k=1 x*x*lg|p|*0.5
     
Загрузка...

Поделиться этой страницей