Предмет: Информатика,
автор: bobbygrenn
необходимо вывести n первых членов соответствующей по
следовательности
Приложения:
Ответы
Автор ответа:
0
var n,i:integer;
y1,y2,yn:real;
begin
readln(n);
y1:=-2;
y2:=1;
writeln(1,' ',y1:5:3);
writeln(2,' ',y2:5:3);
for i:=3 to n do
begin
yn:=1/6*(y2+1/y1);
writeln(i,' ',yn:7:5);
y1:=y2;
y2:=yn;
end;
end.
Пример:
5
1 -2.000
2 1.000
3 0.08333
4 0.18056
5 2.03009
y1,y2,yn:real;
begin
readln(n);
y1:=-2;
y2:=1;
writeln(1,' ',y1:5:3);
writeln(2,' ',y2:5:3);
for i:=3 to n do
begin
yn:=1/6*(y2+1/y1);
writeln(i,' ',yn:7:5);
y1:=y2;
y2:=yn;
end;
end.
Пример:
5
1 -2.000
2 1.000
3 0.08333
4 0.18056
5 2.03009
Автор ответа:
0
а можно в с++? если не затруднит
Автор ответа:
0
Можно. Только Вы должны оформить новое задание.
Автор ответа:
0
спасибо !!! я уже сам разобрался
Интересные вопросы
Предмет: Информатика,
автор: artur81061
Предмет: Математика,
автор: adilhan2381
Предмет: Математика,
автор: danilskyperban
Предмет: Алгебра,
автор: milleniumeye23
Предмет: История,
автор: ЕвгенийКриушин