Персональная страничка
Диканева Тараса
Викторовича

Главная \ Преподавательское \ Программирование для начинающих

4. Вычисления с помощью рекуррентных соотношений

Предыдущий раздел:

Следующий раздел:

Контрольная работа №5

1. Каким рекуррентным соотношением описывается последовательность:

    0,~\frac{\displaystyle 1}{\displaystyle 2},~\frac{\displaystyle 3}{\displaystyle 4},~\frac{\displaystyle 7}{\displaystyle 8},~\ldots

2. Запишите рекуррентное соотношение и первый член последовательности, необходимые для вычисления величины:

    а) \frac{\displaystyle a^{n-1}}{\displaystyle (a-1)^n}

    б) (a-1)^{2n+1}(\frac{\displaystyle a}{\displaystyle 2})^{2n-1}

3. Запишите рекуррентные соотношения необходимые для вычисления функции:

    а) y=1-x^3+x^6-x^9+\ldots

    б) y=1-x^2-x^4-x^6-\ldots

    в) y=\frac{\displaystyle 1}{\displaystyle x}+\frac{\displaystyle 2}{\displaystyle x^2}+\frac{\displaystyle 3}{\displaystyle x^3}+\frac{\displaystyle 4}{\displaystyle x^4}+\ldots

    г) y=\frac{\displaystyle 1!}{\displaystyle x}+\frac{\displaystyle 2!}{\displaystyle x}+\frac{\displaystyle 3!}{\displaystyle x}+\frac{\displaystyle 4!}{\displaystyle x}+\ldots

4. Какую функцию переменной x вычисляет программа?

    а)
  readln(x);
  y:=1;
  p:=1;
  for i:=-2 to 2 do
  begin
    if i<>0 then
      p:=p*x*i/abs(i);
    y:=y+p;
  end;
  writeln(y);
    б)
  readln(x);
  y:=1;
  for i:=0 to 3 do
  begin
    x:=1+1/x;
    y:=y-x;
  end;
  writeln(y);

5. Имеется двумерное рекуррентное соотношение
    \left\{ \begin{array}{l}  x_{n+1}=x_n+y_n,\\  y_{n+1}=y_n-x_n.  \end{array} \right.
Начальные условия x_1=1,~y_1=1. Напишите программу, которая найдет x_{20} и y_{20}.

Следующий раздел:

Предыдущий раздел:

3 комментария

  1. АленА

    Первая так?
    program zadacha_1;
    var
    y, p, i: integer;
    begin
    write (‘0, ‘); {первый член последовательности}
    y:=0;
    p:=1;
    for i:=2 to 4 do
    begin
    p:= p*2;
    y:= p-1;
    write (y, ‘/’, p, ‘, ‘);
    end;
    write (‘…’);
    end.

  2. АленА

    В 5а получился ответ:
    0, -1024

    program zadacha_5a;
    var
    i, x, x1, y: integer;
    begin
    x:=1;
    y:=1;
    for i:=2 to 20 do
    begin
    x1:=x;
    x:=x+y;
    y:=y-x1;
    end;
    writeln(x,’, ‘, y);
    end.

  3. Nord

    Program 5a;
    Var x,x1,y,z,i:integer;
    begin;
    x:=1;
    y:=1;
    for i:=2 to 20 do
    begin;
    x1:=x;
    x:=x+x;
    y:=y-x1;
    end;
    writeln(x,’ ‘,y);
    end.

Добавить комментарий