Вычислить сумму факториалов

@ZOOM ZOOM · Регистрация: 19.02.2013

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

ВЫЧИСЛИТЬ P=1+(1*2)+(1*2*3) +(1*2*3*...R)

Новичок · 19.02.2013, 17:57

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

Вычислите пожалуйста

Возьми калькулятор и вычисляй.

Добавлено через 10 минут

Pascal

program noname;
uses Crt;
var p,r,i,s:Integer;
begin
s:=1;
ClrScr;
Write('r=');
Readln(r);
for i:=1 to r do
begin
s:=s*i;
p:=p+s;
end;
Writeln('p=',p);
Readln;
end.

@AllexVD · 19.02.2013, 18:21

Рекурсия:

Pascal

R:=10;
S:=0;
for i:=1 to R do
begin
    P:=1;
    for j:=1 to i do  P:=P*j;
    S:=S+P;
end;
writeln('сумма произведений чисел ', S)
{для R=10 S=4037913}

Новичок · 19.02.2013, 18:26

AllexVD,нормальный вариант,раньше так-же делал подобные задачи,но проще мой вариант с одним циклом.

Добавлено через 1 минуту
Лучше даже с longint.

Pascal

program noname;
uses Crt;
var p,r,i,s:longint;
begin
s:=1;
ClrScr;
Write('r=');
Readln(r);
for i:=1 to r do
begin
s:=s*i;
p:=p+s;
end;
Writeln('p=',p);
Readln;
end.

Добавлено через 17 секунд
Больший диапозон потянет.

@Puporev · 19.02.2013, 18:43

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

Рекурсия:

И рядом не лежало...

Новичок · 19.02.2013, 18:46

Puporev,если честно знаю приблизительно,что такое рекурсия,но какие алгоритмы являются рекурсивными не понимаю и не отличаю их.

@Puporev · 19.02.2013, 19:12

В рекурсии нет циклов, например факториал

Pascal

function Fac(n:integer):longint;
begin
if n<2 then Fac:=1
else fac:=n*fac(n-1);
end;

@ZOOM ZOOM 0 / 0 / 0 Регистрация: 19.02.2013 Сообщений: 10
		1
	Вычислить сумму факториалов 19.02.2013, 17:41. Показов 26999. Ответов 6 Метки нет (Все метки) ВЫЧИСЛИТЬ P=1+(12)+(123) +(123...R) 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.02.2013, 18:43	5
	Сообщение от AllexVD Рекурсия: И рядом не лежало... 1

Новичок 1647 / 1095 / 488 Регистрация: 17.07.2012 Сообщений: 5,356
	19.02.2013, 18:46	6
	Puporev,если честно знаю приблизительно,что такое рекурсия,но какие алгоритмы являются рекурсивными не понимаю и не отличаю их. 0

	19.02.2013, 19:12