Комментарии: Решаем задачи Абрамян на Паскале. While29

Автор: я

Wed, 16 Oct 2019 00:48:57 +0000

в виде кода это так:

var
a3,a2,a1,e:real;
k:integer;
begin
  readln (e);
  k:=2;
  a2:=1;
  a3:=2;
  while e< abs(a3-a2) do
  begin
  a1:=a2;
  a2:=a3;
  a3:=(a1+2*a2)/3;
  inc(k,1);
  end;
  write (k,' ',a2,' ',a3);
end.

var

a3,a2,a1,e:real;

k:integer;

begin

readln (e);

k:=2;

a2:=1;

a3:=2;

while e< abs(a3-a2) do

begin

a1:=a2;

a2:=a3;

a3:=(a1+2*a2)/3;

inc(k,1);

end;

write (k,' ',a2,' ',a3);

end.

Автор: я

Wed, 16 Oct 2019 00:23:45 +0000

перевожу с птичьего языка автора :каждое последующее число соотносится с двумя предыдущими как
третье число = (первое число+ второе число x 2 ) /3

Автор: Anton

Anton — Tue, 23 Dec 2014 10:20:58 +0000

В ответ на Кирилл. Поправил.

Автор: Кирилл

Кирилл — Fri, 19 Dec 2014 19:38:42 +0000

При таком алгоритме должно быть наоборот
Ak:=2;
Ak1:=1;