Дано натуральное число n. Получить f0, f1, fn по формуле

@ZaRjik · Регистрация: 26.03.2014

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

3.Даны натуральное число n. Получить f0, f1, fn, где
f[i]= 1/(i2 +1) + 1/(i2 +2) + .+1/(i2 +i +1

Кому не проблематично не могли бы расписать код под Delphi7?

@Зотов_из_ОСА · 28.04.2014, 12:10

ZaRjik, поясните свою формулу.

f[i]= 1/(i2 +1) + 1/(i2 +2) + .+1/(i2 +i +1

1. что такое i2?
2. Я так понял это рекурсия и возникает вопрос количество сложений зависит от i или нет?
3. какова зависимость между i и i2?

@Cyborg Drone · 28.04.2014, 12:41

ZaRjik, имеется ввиду
$https://www.cyberforum.ru/cgi-bin/latex.cgi?f_i= \frac{1}{i^2 +1} + \frac{1}{i^2 +2} +...+\frac{1}{i^2 +i}$
, да?

@Зотов_из_ОСА · 28.04.2014, 12:48

frac{1}{i^2 +1} + \frac{1}{i^2 +2} +...+\frac{1}{i^2 +i}

Возникает вопрос прервать рекурсию на $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{1}{{i}^{2}+i+1}$ или есть какое-то другое условие выхода?

@Cyborg Drone · 28.04.2014, 15:06

Зотов_из_ОСА, пусть ТС уточнит, что ему нужно,

$https://www.cyberforum.ru/cgi-bin/latex.cgi?f_i=\frac{1}{i^2+1}+\frac{1}{i^2+2}+...+\frac{1}{i^2+i}$

или

$https://www.cyberforum.ru/cgi-bin/latex.cgi?f_i=\frac{1}{i^2+1}+\frac{1}{i^2+2}+...+\frac{1}{i^2+i}+\frac{1}{i^2+i+1}$

Добавлено через 5 минут
Или ещё что.

@Зотов_из_ОСА · 29.04.2014, 18:14

Кому не проблематично не могли бы расписать код под Delphi7?

ну попытаемся
Проект:

Delphi

 function posl(i: integer; var k: double): double;
  begin
    for J:=sqr(i) to sqr(i) + i +1 do 
      begin
        k:=k+ 1/j;
      end;
  end;
 N:=strtoint(edit1.text);
 for i:=1 to n do
  begin
    a[i]:=posl(i,k);
    memo1.text:= memo1.text + floattostr(a[i]) + ' ';
 end;

в консоли

Delphi

 N:=strtoint(edit1.text); // заменить на
 Readln(n)
 memo1.text:= memo1.text + floattostr(a[i]) + ' '; // заменить на
 writeln('функция от', i ,'равна', a[i]);

@Odicey · 20.12.2016, 00:36

А можете сделать эту программу в паскале?

@Cyborg Drone · 20.12.2016, 01:29

Во-первых, что именно сделать, если условие некорректное? Во-вторых, Зотов_из_ОСА уже всё написал. В данном случае решение для паскаля совпадает с решением для консоли.

@ZaRjik 0 / 0 / 0 Регистрация: 26.03.2014 Сообщений: 3
		1
	Дано натуральное число n. Получить f0, f1, fn по формуле 22.04.2014, 21:25. Показов 3996. Ответов 7 Метки нет (Все метки) 3.Даны натуральное число n. Получить f0, f1, fn, где f[i]= 1/(i2 +1) + 1/(i2 +2) + .+1/(i2 +i +1 Кому не проблематично не могли бы расписать код под Delphi7? 0

@Зотов_из_ОСА Аналитик 80 / 80 / 63 Регистрация: 24.04.2014 Сообщений: 465 Записей в блоге: 15
	28.04.2014, 12:10	2
	ZaRjik, поясните свою формулу. f[i]= 1/(i2 +1) + 1/(i2 +2) + .+1/(i2 +i +1 1. что такое i2? 2. Я так понял это рекурсия и возникает вопрос количество сложений зависит от i или нет? 3. какова зависимость между i и i2? 0

@Cyborg Drone Модератор 9870 / 5238 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	28.04.2014, 12:41	3
	ZaRjik, имеется ввиду $https://www.cyberforum.ru/cgi-bin/latex.cgi?f_i= \frac{1}{i^2 +1} + \frac{1}{i^2 +2} +...+\frac{1}{i^2 +i}$ , да? 0

@Зотов_из_ОСА Аналитик 80 / 80 / 63 Регистрация: 24.04.2014 Сообщений: 465 Записей в блоге: 15
	28.04.2014, 12:48	4
	frac{1}{i^2 +1} + \frac{1}{i^2 +2} +...+\frac{1}{i^2 +i} Возникает вопрос прервать рекурсию на $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{1}{{i}^{2}+i+1}$ или есть какое-то другое условие выхода? 0

@Cyborg Drone Модератор 9870 / 5238 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	28.04.2014, 15:06	5
	Зотов_из_ОСА, пусть ТС уточнит, что ему нужно, $https://www.cyberforum.ru/cgi-bin/latex.cgi?f_i=\frac{1}{i^2+1}+\frac{1}{i^2+2}+...+\frac{1}{i^2+i}$ или $https://www.cyberforum.ru/cgi-bin/latex.cgi?f_i=\frac{1}{i^2+1}+\frac{1}{i^2+2}+...+\frac{1}{i^2+i}+\frac{1}{i^2+i+1}$ Добавлено через 5 минут Или ещё что. 0

@Odicey 0 / 0 / 0 Регистрация: 16.12.2016 Сообщений: 13
	20.12.2016, 00:36	7
	А можете сделать эту программу в паскале? 0

@Cyborg Drone Модератор 9870 / 5238 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	20.12.2016, 01:29	8
	Во-первых, что именно сделать, если условие некорректное? Во-вторых, Зотов_из_ОСА уже всё написал. В данном случае решение для паскаля совпадает с решением для консоли. 0