рекурсия - Помощь студентам

Limonade · 21.06.2011, 15:26

Срочно нужна помощь в решении задачи на языке паскаль.
Суть такая дан ряд чисел 1/2, 1/3 ,1/4, 1/5, 1/6 ,1/7 ,1/8 нужно посчитать их сумму с помощью рекурсии...
Заранее спасибо

GetMax · 21.06.2011, 15:38

Код:

Function RecSum(N:Byte):Real;
Begin
  If N=2 then RecSum:=0.5
  Else
  RecSum:=RecSum(N-1)+(1/N)
End;

Limonade · 21.06.2011, 15:58

благодарю)))

21.06.2011, 15:26	#1
Limonade Новичок Джуниор Регистрация: 21.06.2011 Сообщений: 2	рекурсия Срочно нужна помощь в решении задачи на языке паскаль. Суть такая дан ряд чисел 1/2, 1/3 ,1/4, 1/5, 1/6 ,1/7 ,1/8 нужно посчитать их сумму с помощью рекурсии... Заранее спасибо

21.06.2011, 15:38	#2
GetMax Форумчанин Регистрация: 21.10.2010 Сообщений: 588	Код: `Function RecSum(N:Byte):Real; Begin If N=2 then RecSum:=0.5 Else RecSum:=RecSum(N-1)+(1/N) End;` Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Для благодарностей WMR R145235935681

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Рекурсия	McJordan	Паскаль, Turbo Pascal, PascalABC.NET	5	18.12.2010 19:46
Рекурсия	LegionuS	Паскаль, Turbo Pascal, PascalABC.NET	4	29.09.2010 15:31
Рекурсия	rasals	Помощь студентам	4	14.09.2010 18:32
Рекурсия	DrDre	Паскаль, Turbo Pascal, PascalABC.NET	0	25.08.2010 21:50

21.06.2011, 15:58	#3
Limonade Новичок Джуниор Регистрация: 21.06.2011 Сообщений: 2	благодарю)))