Получить и вывести на экран последовательность чисел

@Katya_v · Регистрация: 07.09.2015

Author24 — интернет-сервис помощи студентам

Сначала решить задачу, используя цикл While, затем - цикл Repeat.
Пусть $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{1}=1,{y}_{2}=2$ . Получить и вывести на экран последовательность чисел $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{1},{y}_{2},{y}_{3},...,{y}_{25}$ , если $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{i}=\frac{{({y}_{i-1})}^{2}+{y}_{i-2}+{y}_{i-1}}{i}$ , где

$https://www.cyberforum.ru/cgi-bin/latex.cgi?i=3,4,...$

@light_girlz · 13.10.2015, 15:30

C циклом While =)

Pascal

program prim;
uses crt;
var y:array [1..25] of real;  i:byte;
begin
y[1]:=1;
writeln(y[1]);
y[2]:=2;
writeln(y[2]);
i:=3;
while i<=25 do begin
y[i]:=(sqr(y[i-1])+y[i-2]+y[i-1])/i;
writeln('y[',i,']',y[i]:5:3);
inc(i);
 
end;
 
end.

С циклом Repeat=)

Pascal

program prim;
uses crt;
var y:array [1..25] of real;  i:byte;
begin
y[1]:=1;
writeln('y[1]=',y[1]);
y[2]:=2;
writeln('y[2]=',y[2]);
i:=2;
repeat
inc(i);
y[i]:=(sqr(y[i-1])+y[i-2]+y[i-1])/i;
writeln('y[',i,']',y[i]:5:3);
until  i>=25;
 
 
end.

@Katya_v 0 / 0 / 0 Регистрация: 07.09.2015 Сообщений: 25
		1
	Получить и вывести на экран последовательность чисел 12.10.2015, 11:02. Показов 1720. Ответов 1 Метки нет (Все метки) Сначала решить задачу, используя цикл While, затем - цикл Repeat. Пусть $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{1}=1,{y}_{2}=2$ . Получить и вывести на экран последовательность чисел $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{1},{y}_{2},{y}_{3},...,{y}_{25}$ , если $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{i}=\frac{{({y}_{i-1})}^{2}+{y}_{i-2}+{y}_{i-1}}{i}$ , где $https://www.cyberforum.ru/cgi-bin/latex.cgi?i=3,4,...$ 0

	13.10.2015, 15:30

Получить и вывести на экран последовательность чисел

Решение