Рекурсивная функция. Вычислить сумму ряда

@Клавдия · Регистрация: 03.05.2012

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

Можете решить :
Дано натуральное число N. Найти сумму 1 + 1/2 + 1/3 + 1/4 + ... + 1/(N-1) + 1/N используя рекурсивную функцию.

@Kuzmi4 · 03.05.2012, 20:33

Pascal

var
n, z : integer;
full, j : real;
 
function sum(n: integer):real;
begin
if n > 0 then begin
z := n;
full := full + 1 / n;
sum(n - 1);
end;
sum := full;
end;
 
begin
writeln('Введите N');
readln(n);
full := 0;
j := sum(n);
write('Сумма равна: ', j);
end.

Вроде так. Только будьте аккуратней, из-за использования слишком больших значений N прога может отказаться работать))

@Клавдия · 03.05.2012, 21:27 **[ТС]**

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

Pascal

var
n, z : integer;
full, j : real;
 
function sum(n: integer):real;
begin
if n > 0 then begin
z := n;
full := full + 1 / n;
sum(n - 1);
end;
sum := full;
end;
 
begin
writeln('Введите N');
readln(n);
full := 0;
j := sum(n);
write('Сумма равна: ', j);
end.

Вроде так. Только будьте аккуратней, из-за использования слишком больших значений N прога может отказаться работать))

Спасибо большое!

@Клавдия 0 / 0 / 1 Регистрация: 03.05.2012 Сообщений: 5
		1
	Рекурсивная функция. Вычислить сумму ряда 03.05.2012, 18:32. Показов 1391. Ответов 2 Метки нет (Все метки) Можете решить : Дано натуральное число N. Найти сумму 1 + 1/2 + 1/3 + 1/4 + ... + 1/(N-1) + 1/N используя рекурсивную функцию. 0

	03.05.2012, 21:27

Рекурсивная функция. Вычислить сумму ряда

Решение