Оператор While. Дано вещественное число ε (> 0). Последовательность вещественных чисел AK определяется следую

@Дарюшка · Регистрация: 08.02.2012

Дано вещественное число ε (> 0). Последовательность вещественных чисел A_K определяется следующим образом:

A₁ = 1, A₂ = 2, A_K = (A_K−2 + 2·A_K−1)/3, K = 3, 4, … .

Найти первый из номеров K, для которых выполняется условие
|A_K − A_K−1| < ε, и вывести этот номер, а также числа A_K−1 и A_K.

@erl27 · 20.05.2014, 01:43

Pascal

var
  e, A1, A2, c: real;
  K: byte;
  
begin
  write('e = ');
  readln(e);
  A1 := 1; A2 := 2;
  K := 2;
  while abs(A2 - A1) >= e do begin
    inc(K);
    c := A2;
    A2 := (A1 + 2 * A2) / 3;
    A1 := c
  end;
  writeln('Номер: ', K);
  writeln('Числа: ', A1:0:4, ' ', A2:0:4)
end.

@Дарюшка 1 / 1 / 0 Регистрация: 08.02.2012 Сообщений: 106
		1
	Оператор While. Дано вещественное число ε (> 0). Последовательность вещественных чисел AK определяется следую 19.05.2014, 23:38. Показов 7334. Ответов 1 Метки нет (Все метки) Дано вещественное число ε (> 0). Последовательность вещественных чисел A_K определяется следующим образом: A₁ = 1, A₂ = 2, A_K = (A_K−2 + 2·A_K−1)/3, K = 3, 4, … . Найти первый из номеров K, для которых выполняется условие \|A_K − A_K−1\| < ε, и вывести этот номер, а также числа A_K−1 и A_K. 0

Опции темы

Оператор While. Дано вещественное число ε (> 0). Последовательность вещественных чисел AK определяется следую

Решение