Дано вещественное число e (больше 0). Последовательность вещественных чисел AK определяется следующим образом: A1 = 1, A2 = 2, AK = (AK-2 + 2*AK-1)/3, K = 3, 4, ... . Найти первый из номеров K, для которых выполняется условие |AK - AK-1| меньше e

code: #pascal
program while29;
uses crt;
var 
  a1,a2,ak,e:real;
  k:integer;
begin 
  clrscr;
  write('Введите число e>0 e=');
  readln(e);
  a1:=1;
  a2:=2;
  ak:=(a1+2*a2)/3;
  k:=3;
while abs(ak-a2) >= e do
  begin
    a1:=a2;
    a2:=ak;
    ak:=(a1+2*a2)/3;
    k:=k+1;
  end;
  write('Результат=',k,'  A(k-1)=',a2:0:5,'  Ak=',ak:0:5);
  readln;
end.

автор: Oleg Voloshin

Поделиться:

Похожие статьи: