Составить программу вычисления значения функци

@Eldarius · Регистрация: 10.04.2018

Добрый день!
Не могу допереть, как составить программу вычисления значения функции. Сама функция:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z(x)=\frac{\normal{x^{\,}}}{\normal{1+}\frac{\normal{x^{\,}}}{\normal{2+}\frac{\normal{x^{\,}}}{\normal{3+}\frac{\normal{x^{\,}}}{\begin{array}{c}\\\\\vdots \ \vdots \ \vdots \\\\\normal{100+}\frac{\normal{x^{\,}}}{\normal{101}}\end{array}}}}}<br />$

Заранее спасибо!

@JuriiMW · 24.10.2018, 10:54

Pascal

var
  x, z : Real;
  i : Integer;
begin
  Read(x);
  z := 101;
  for i := 100 downto 0 do z := i + x / z;
  Write(z:0:7);
end.

@Puporev · 24.10.2018, 11:05

Pascal

var x,z:real;
    i:integer;
begin
write('x=');
readln(x);
z:=x/101;
for i:=100 downto 0 do
z:=x/(i+z);
end.

Добавлено через 1 минуту
По моему так.

Добавлено через 1 минуту
Да, в конце не написал

Pascal

1	writeln('z=',z:0:3);

Добавлено через 6 минут
Проверял при x=2 z₁=x/3 от 2 до 0.

@Eldarius 1 / 1 / 0 Регистрация: 10.04.2018 Сообщений: 13
		1
	Составить программу вычисления значения функци 24.10.2018, 10:03. Показов 667. Ответов 2 Метки нет (Все метки) Добрый день! Не могу допереть, как составить программу вычисления значения функции. Сама функция: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z(x)=\frac{\normal{x^{\,}}}{\normal{1+}\frac{\normal{x^{\,}}}{\normal{2+}\frac{\normal{x^{\,}}}{\normal{3+}\frac{\normal{x^{\,}}}{\begin{array}{c}\\\\\vdots \ \vdots \ \vdots \\\\\normal{100+}\frac{\normal{x^{\,}}}{\normal{101}}\end{array}}}}}<br />$ Заранее спасибо! 0

Опции темы