Дана последовательность 1+1/2+1/3+∞+1/n

[DrewzZ]

Дана последовательность 1+1/2+1/3+∞+1/n, найти сумму первых n членов данной последовательности

Помогите пожалуйста написать программу, весь мозг себе сломал

[GreenWizard]

var
  i, n: integer;
  r: Double;
begin
  readln(n);
  r := 0;
  for  i := 1 to n do
    r := r + (1 / i);
  writeln(r);
  readln;
end.

пробуй

[Аватар]

1+1/2+1/3+∞+1/n

Не мудрено мозг сломать увидев такое. И где, интересно, практикует такое издевательство над записью числового ряда?

[DrewzZ]

Сообщение от Аватар

Не мудрено мозг сломать увидев такое. И где, интересно, практикует такое издевательство над записью числового ряда?

А практикует наш учитель 9 класса по информатике

[DrewzZ]

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

var
  i, n: integer;
  r: Double;
begin
  readln(n);
  r := 0;
  for  i := 1 to n do
    r := r + (1 / i);
  writeln(r);
  readln;
end.

пробуй

Большое спасибо за решение, а можно ли написать программу с циклом while?

[Алексей_2012]

А почему цикл, а не рекурсия с параметром N?

Плюс при i=1 деление выполнится все равно, а это лишние милисекунды)

[Алексей_2012]

function recurs (N:integer):real;
var a:real;
begin
a:=1/N;
if (N=1) then result:=1;
if (N>0) then result:= a+recurs(N-1); 
end;


var chislo:integer;
    itog:real;
begin
writeln('Press chislo...');
readln(chislo);

itog:=recurs(chislo);
writeln(itog);

readln;
end.

Вот рекурсивный вариант, если кто-нибудь покажет более красивое решение, то с удовольствием посмотрю

[Аватар]

В коде выше деление на 0 будет

function recurs (N:integer):real;
begin
  if N=1 then result:=1 else result:=1/N+recurs(N-1);
end;

[Poma][a]

В коде выше деление на 0 будет

Разве?ваааааааааааааааа

[Аватар]

if (N>0) then result:= a+recurs(N-1); для n=1

Проверь