Помогите срочно пожалуйста жизненно необходимо.Последние баллы отдаю за эту задачу.Вычислить 5-й член последовательности образованный дробями 1/1 2/1 3/2 т.е числитель(знаменатель) следующего члена последовательности получается сложением числителей(знаменателей) двух предыдущих членов. Также нужно вычислить член последовательности который отличается от предыдущего члена не более чем на 0,001.
More Questions From This User See All
Answers & Comments
Verified answer
//PascalABC.NETvar
nt, dt : integer;
begin
var n1 := 1; var d1 := 1;
var n := 2; var d := 1;
var i := 2;
while i < 5 do begin
nt := n; dt := d;
n := n + n1; n1 := nt;
d := d + d1; d1 := dt;
i += 1
end;
writeln(n,'/',d);
n1:=1; d1:=1;
n:= 2; d:=1;
while (abs(n/d - n1/d1) > 0.001) do begin
nt := n; dt := d;
n := n + n1; n1 := nt;
d := d + d1; d1 := dt;
end;
writeln(n,'/',d,'-',n1,'/',d1,'=',n/d-n1/d1)
end.
Verified answer
Const e=0.001;var a,b,c,i:integer;
begin
a:=1;
b:=2;
i:=1;
write('1/1 ');
while (abs(b/a-(a+b)/b)>e) do
begin
i:=i+1;
if i<=5 then write(b,'/',a,' ');
c:=a+b;
a:=b;
b:=c;
end;
writeln;
writeln(a+b,'/',b,' ');
end.
Результат:
1/1 2/1 3/2 5/3 8/5
89/55