объяснить код

@Ulya92 · Регистрация: 22.09.2012

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

здравствуйте, можете объяснить код, пожалуйста? я не могу понять, как считается факториал

Pascal

VAR
x, e :real;
n :integer;
begin
e := 1;
x := 1;
n := 0;
repeat
inc(n);
x := x / n;
e := e + x;
until x<(0.0001/3);
end.

@Samhain · 01.10.2013, 14:44

Ulya92, факториал считается у Вас в 10 строке (точнее слагаемое 1/n!):

Сообщение от Ulya92

x := 1;
n := 0;
repeat
inc(n);
x := x / n;

т.е. на первом шаге $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{1}=\frac{1}{1}=1$ , на втором $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{2}=\frac{1}{2}$ (2!=1*2=2), на третьем $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{3}=\frac{\frac{1}{2}}{3}=\frac{1}{2*3}=\frac{1}{6}$ (3!=1*2*3=6), $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{4}=\frac{\frac{1}{6}}{4}=\frac{1}{6*4}=\frac{1}{24}$ (4!=1*2*3*4=24) и т.д.

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	01.10.2013, 14:44	2
	Ulya92, факториал считается у Вас в 10 строке (точнее слагаемое 1/n!): Сообщение от Ulya92 x := 1; n := 0; repeat inc(n); x := x / n; т.е. на первом шаге $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{1}=\frac{1}{1}=1$ , на втором $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{2}=\frac{1}{2}$ (2!=12=2), на третьем $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{3}=\frac{\frac{1}{2}}{3}=\frac{1}{23}=\frac{1}{6}$ (3!=123=6), $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{4}=\frac{\frac{1}{6}}{4}=\frac{1}{64}=\frac{1}{24}$ (4!=1234=24) и т.д. 1